Excel vba 循環查找sheet的值findnext

本文转载自 alicesunBlog 查看原文 2013-03-27 265 ext/ vba/ 查找/ find/ 循环

　　　　　　　　

With Worksheets("Data").Columns("G:G")
        Set c = .Find(Worksheets("Data").Cells(mrgRow, 2).Value, LookIn:=xlValues)
         If Not c Is Nothing Then
             firstAddress = c.Address
             Do
                  msgbox (c.Row)
                   Set c = .FindNext(c)
             Loop While Not c Is Nothing And c.Address <> firstAddress
           End If
End With

注意！

本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。