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

Answer 2

试试这个：

Sub test()

Dim cell As Range

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

End Sub

Answer 3

没有VBA：

Goto Special, Blanks
type '0'
Ctrl+Enter

Answer 4

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

Answer 5

尽管Rosetta的解决方案对于这个非常特殊的情况（空单元格）是最优雅的，但我认为以下是最通用的，因为您可以通过更改公式轻松地将其调整为更多情况。

set rng = Range("B2307:B10000")
rng.Formula = Application.Evaluate("=IF(ISBLANK(" & rng.Address & "),0," & rng.Address & ")")

记住这种模式，这非常有用！

VBA - 用0填充空单元格

5 个答案: