使用FIND查找 报with块变量未设置什么原因

tigertc

使用FIND查找 并用了FOR/DO loop循环不知道为什么会报错,WITH块变量未设置,本人还在学习中,不太明白,请大神帮忙看看,谢谢.

jhwei2

话不多说，看图

tigertc

朱荣兴 发表于 2018-9-23 17:56
出现这样的问题，往往是找不到你需要查找的值所致

感谢版主回复,不知道是不是FINDnext不能嵌套,将内层不用FIND就没再报错了.

tigertc

感谢,还要持续学习呀,可能是FIND嵌套的问题外层断开,我改了内层不用find就没报错了.
Sub AAA()
Dim rng1, rng2 As Range, addr$, adr$
Dim i As Long, j As Byte, k As Byte


For i = 2 To Range("A1048576").End(xlUp).Row
    If Cells(i, 1) <> "" Then
        Set rng1 = Range("a:a").Find(Cells(i, 1).Value, lookat:=xlWhole)
        addr = rng1.Address                     '第一个地址是addr
        
        Do
            Set rng1 = Range("a:a").FindNext(rng1)
            adr = rng1.Address                  '下一个的地址是adr
            MsgBox adr & "+" & rng1
            If adr <> addr Then
                For j = 1 To Range(adr).Rows.End(xlToRight).Column
                    k = Application.WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, Rows(i).End(xlToRight).Column)), Cells(rng1.Row, j))
                    If k > 0 And Cells(rng1.Row, j) <> "" Then
                        Cells(rng1.Row, j).Clear
                    Else
                        Cells(i, Cells(i, 1).End(xlToRight).Column + 1) = Cells(rng1.Row, j)
                        Cells(rng1.Row, j).Clear
                    End If
                    
                Next j
            End If
        Loop Until adr = addr
    End If
Next
   
End Sub

mythqiu

find和findnext严格按照微软推荐的方式来写。在中查询的时候不能有其他的程序操作，只能记录数据到变量中，然后再查询结束之后，有其他的程序来处理，处理查询到底东西，这个本人也是研究了很久，微软推荐的方式在老版本的帮助文档有

mythqiu

其他的操作是指对单元格的操作