我已经搜索了很多关于我的问题，但找不到我需要的答案。
我有一张表 A1:DT97138。在这个表中，我想检查每一行，如果一行中的所有单元格都为空，从单元格 B2 开始到 DT2。然后在下一个单元格 DU2 中输出“Empty”或“Not Empty”。然后对第 3、4 行等到 97138 执行相同的操作（并在 DU2、DU3 等中每行输出相同的结果行）。
我找到了如何为 1 个特定行执行此操作，如下所示，但我无法找到如何逐行遍历整个范围。
Sub rowEmpty()
Dim rng As Range, r As Range
Set rng = Range("B2:DT97138")
If WorksheetFunction.CountA(Range("B2:DT2")) = 0 Then
Cells(2, 125) = "Empty"
Else
Cells(2, 125) = "Not Empty"
End If
End Sub
谢谢你的帮助！
你做得很好。只需要像这样循环遍历范围。
Sub rowEmpty()
Dim rng As Range, r As Range
Set rng = Range("B2:DT97138")
For Each r In rng.Rows
If WorksheetFunction.CountA(r) = 0 Then
Cells(r.Row, 125) = "Empty"
Else
Cells(r.Row, 125) = "Not Empty"
End If
Next r
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句