ExcelVBA给所有空白单元格填上0

哆哆Excel

发布于 2022-10-31 15:41:54

7170

发布于 2022-10-31 15:41:54

文章被收录于专栏：哆哆Excel

【问题】不少人做Excel表格时有个习惯，数值为0时该单元格就不填写。但是空白单元格与数据为0的单元格是不同意义的。在进行统计的时候，用透视表或用函数计算有时会出现空白单元格不计数。数据为0的会计算，所以对有些计算是合理的，所以我们要进行统计前要给所有空白单元格填写上0，以防出现以上错误。

【手工】数量少你可以对一个一个填写。数量多你可一列一列筛选再填写0，数量是几万行几十列，那么。。。。。

问：能否有快速的方法？

答：当然，

【代码】

Sub SelectionRangeSet0()
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False
    With ActiveSheet
        If Selection.Count < 2 Then MsgBox ("你没选择一个区域哦"): Exit Sub
        For Each r In Selection
            If r.Value = "" Then r.Value = 0
        Next
    End With
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = True
End Sub

使用方法：