在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 。 这将使它运行得更快。

Answer 2

如果单元格真的是空白（即空），则有两种方法可以使用SpecialCells立即填充单元格，可以手动填充，也可以使用快速代码避免循环。

David Mcritchie在这里详细写了这篇文章。

手动路线

• 做出选择
• 按F5 ...特殊..转到空白
• 在公式栏中添加0
• 然后按Ctrl + Enter

代码路由

Sub Quickfull()
'reset usedrange
ActiveSheet.UsedRange
On Error Resume Next
ActiveSheet.Cells.SpecialCells(xlBlanks).Value = 0
End Sub