请教EXCEL 中的宏进行批处理特定条件的格式清除

来源：百度知道 编辑：UC知道 时间：2024/06/27 07:12:02
我想了很久,不想用公式来代替,想运用宏中的批处理,谢谢各位帮帮忙..

例如:

当该"行"所有单元格的值为0或空时,相对应该单元格的"列"下30个单元格既值为空,

又例如:

我在A1:A30中随机有A1..B1..D1..G1单元格既值为空,则当我进行进处理后,相应..A2:A30..B2:B30..D2:D30..G2:G30..的值变为空或0,

处理..可以是快捷键或按钮...

谢谢各位!~

先选中你这行数据,然后选行宏

Sub aaa()
For Each x In Selection
If ActiveCell.Value = 0 OR ActiveCell.Value ="" Then
For y = 1 To 29
ActiveCell.Offset(y, 0).Value = 0
Next
End If
ActiveCell.Offset(0, 1).Select
Next
End Sub

Sub Del123()
For i = Range("A1:A1000").Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 7))) = 0 Then
Cells(i, 1).Offset(1).Resize(30, 7) = ""
End If
Next
End Sub

*****
这个你看看吧，不一定正确。你的要求我大致这么理解的。