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
posted on 2013-03-27 09:09 Alice Sun 阅读(1290) 评论(0) 编辑 收藏 举报