[已解决]遇到错误值#NUM!、#DIV/O!，显示类型不匹配怎么办？

cys888

以下是一段筛选代码，在执行中，当被筛选的单元格数据出现错误值#NUM!、#DIV/O!时，就会弹出对话框，显示“类型不匹配”，代码的循环就停止了，点击“确定”后，代码的循环才会继续，这可怎么办？{:041:}

Sub 筛选()
Dim arr
Dim arr1
Dim i As Variant
Dim Myr As Variant
Dim j As Variant
Dim ii As Variant
Application.ScreenUpdating = False
Myr = Sheet4.[a65536].End(xlUp).Row
arr1 = Sheet4.Range("A1:CB1")
arr = Sheet4.Range("A6:CB" & Myr)
For i = 1 To UBound(arr)
    For j = 1 To 80
    For ii = 1 To 1
        If arr(i, j) = arr1(ii, j) Then
            Cells(i + 5, 1).EntireRow.Hidden = True
            GoTo 100
        End If
    Next
    Next
100:
Next
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

wayy

2012-7-27 15:36

加一句代码

1. On Error Resume Next

复制代码

跳转到最佳答案楼层

wayy

加一句代码

1. On Error Resume Next

复制代码

cys888

wayy 发表于 2012-7-27 15:36
加一句代码

这一句代码应该插在哪里呢？

cys888

cys888 发表于 2012-7-27 15:44
这一句代码应该插在哪里呢？

非常感谢你的热心帮助！！！