Excel vba 循環查找sheet的值findnext


        

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

 

                           


注意!

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



 
粤ICP备14056181号  © 2014-2020 ITdaan.com