查找列中的空白单元格并将其替换为0，如果下一行有数据，则对下一行重复此操作

Question

我使用excel用户表单输入数据。我想为列C2:F2，如果用户没有在其中输入任何数字，excel应该将这些空白转换为0。当输入下一行的数据时，我想让它对下一行重复。我尝试了一些简单的编码，但它没有工作。

Public Sub BlankCells()

Dim rng As Range
rng = Range("C2:C1000", "D2:D1000", "E2:E1000", "F2:F1000")

For Each cell In rng

If cell = "" Then cell.Value = "0"
Next cell
Find

End Sub

它的工作，如果使用单行编码，即"C2:F2"，但我希望它重复为下一行以及当下一行获得数据。

Answer 1

当您为工作表或范围创建变量时，您需要像这样使用Set关键字:

Set rng = Range("C2:F1000")

如果您想引用多个范围，您可以将所有范围添加为一个逗号分隔的字符串