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
　　　　　　　　

With Worksheets("Data").Columns("