[已解决]代码为什么会报错。。。。求解！！

tzjx200521

Sub aa()
With Sheets("1")
For i = 2 To .Range("a65536").End(xlUp).Row
            Set Rng = Sheets("2").[a:a].Find(.Cells(i, 1), lookat:=xlWhole)
            If Not Rng Is Nothing Then
            Rng.EntireRow.Delete
            End If
    Next
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-20 15:19

Sub test()
    Dim str$
    Sheets("1").Select   
    For i = 1 To Range("a65536").End(xlUp).Row
        str = Cells(i, 1)
        If Len(str) > 0 And Len(str) < 256 Then
            Set Rng = Sheets("2").[a:a].Find(str, lookat:=xlWhole)
            If Not Rng Is Nothing Then
                Rng.EntireRow.Delete
            End If
        End If
    Next   
End Sub




原因：A8的长度超过了255
解决：判断长度后，再查找。

跳转到最佳答案楼层

七彩屋

找不到会报错
加一行
On Error Resume Next

tzjx200521

七彩屋 发表于 2016-5-20 12:24
找不到会报错
加一行
On Error Resume Next

不是都找不到吗  ？？  为什么只有那行会报错啊？？？

ghostjiao

出错的原因是A8单元格的字符数太多，最多能查找255个字符

tzjx200521

ghostjiao 发表于 2016-5-20 15:05
出错的原因是A8单元格的字符数太多，最多能查找255个字符

为什么只能查255啊？？

爱疯

Sub test()
    Dim str$
    Sheets("1").Select   
    For i = 1 To Range("a65536").End(xlUp).Row
        str = Cells(i, 1)
        If Len(str) > 0 And Len(str) < 256 Then
            Set Rng = Sheets("2").[a:a].Find(str, lookat:=xlWhole)
            If Not Rng Is Nothing Then
                Rng.EntireRow.Delete
            End If
        End If
    Next   
End Sub




原因：A8的长度超过了255
解决：判断长度后，再查找。