同时多列一键补零

ck03w11

请各位帮我看看，如A,B两列有空就一键补零，如有错误符强行一键改零。谢谢

哥儿-

Sub test()
    Dim vArr, i&, j&
    vArr = Range("A2", Cells(Rows.Count, 2).End(3))
    For i = 3 To UBound(vArr)
        For j = 1 To UBound(vArr, 2)
            If IsError(vArr(i, j)) Then
                vArr(i, j) = 0
            ElseIf Len(vArr(i, j)) = 0 Then
                vArr(i, j) = 0
            End If
        Next
    Next
    Range("A2").Resize(UBound(vArr), 2) = vArr
    MsgBox "OK"
End Sub

zjdh

一键补零.rar (8.84 KB, 下载次数: 1)

2023-3-1 13:41 上传

点击文件名下载附件
Sub TEST()
    For i = 4 To UsedRange.Rows.Count + 1
        If Cells(i, 1).Text = "#VALUE!" Then Cells(i, 1) = 0
        If Cells(i, 2).Text = "#VALUE!" Then Cells(i, 2) = 0
        If Cells(i, 1) = "" Then Cells(i, 1) = 0
        If Cells(i, 2) = "" Then Cells(i, 2) = 0
    Next
End Sub

ck03w11

谢谢各位帮助

kingsao_61

哥儿- 发表于 2023-3-1 13:31
Sub test()
    Dim vArr, i&, j&
    vArr = Range("A2", Cells(Rows.Count, 2).End(3))

能用or判断 减少elseif吗？

哥儿-

kingsao_61 发表于 2023-3-2 19:20
能用or判断 减少elseif吗？

开始就是用or，但值是错误值的时候报错了。