在excel中使用VBA填充带有0的公式的结果输出

Sub FillZero()
    Dim rng As Range
    Dim cell As Range
    
    '设置要填充的范围
    Set rng = Range("A1:A10") '将范围修改为你需要填充的范围
    
    '循环遍历范围中的每个单元格
    For Each cell In rng
        '判断单元格中的公式是否为带有0的公式
        If InStr(cell.Formula, "=0") > 0 Then
            '计算公式并将结果输出
            cell.Value = Evaluate(cell.Formula)
        End If
    Next cell
End Sub