VBA - 用0填充空单元格

Question

如何用一列中的0填充空单元格？我想我的代码完整但不起作用;(

Sub test()

Dim cell As Range

For Each cell In Range("B2307:B10000")
If Len(cell.Value) = 0 Then
    cell.Value = 0
End If
Next

End Sub

Answer 1

如果你真的需要vba,这是一个更好的方法

Sub test()

    On Error Resume Next
    Range("B2307:B10000").SpecialCells(xlCellTypeBlanks) = 0

End Sub