在Excel空白单元格中自动填充0和0%

Question

我试图在Excel中的空白单元格中自动输入0和0%值.我在Excel中有一个报告,可以从SAS自动填写.保存此报告后,我希望空白单元格在数字列中自动填充为0,在百分比列中自动填充为0%.

宏或VBA代码将是什么？

Answer 1

如果您只想将0添加到空白单元格,有几种方法可以做到这一点 - 这里使用范围A1:D10作为示例.请注意,如果单元格的格式为百分比,则"%"会自动附加到0:

Sub test()

Dim cell As Range

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

End Sub

请注意,如果您在大范围的单元格上执行此操作(实际上最好始终执行此操作),您需要确保Application.ScreenUpdating = False在代码的开头和Application.ScreenUpdating = True结尾添加.这将使它运行得更快.