Verwenden Sie "Find", um alle diese Zellen und die direkt darunter zu wählen

Question

Ich habe einen riesigen Datensatz und brauche alle Namen. Sie sind Zellen, die "Name" sagen und dann ist darunter der Name. Es gibt kein Muster, wenn ein Name angezeigt wird. Kann ich das Werkzeug "Suchen" verwenden, um alle "Name" -Zellen und die Zellen darunter auszuwählen?

Answer 1

Ich legte Beispieldaten auf Blatt 1 in Bild unten. Dieser Code wird durch die Schleife, und jede Zelle mit dem Wert „Namen“ finden und den Wert aus der Zelle darunter greifen und es zu Blatt 2, wie in Bild 2.

Sub findName() 

Dim i As Long 
Dim c As Range 
Dim firstAddress 

i = 1 

With Worksheets(1).Cells 

    Set c = .Find("Name") 
    If Not c Is Nothing Then 
     firstAddress = c.Address 
     Do 
      Worksheets(2).Range("A" & i).Value = c.Offset(1, 0).Value 
      i = i + 1 
      Set c = .FindNext(c) 
     Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With 

End Sub 

eingeben on