Kopieren einer ganzen Zeile von einem Blatt zu einem anderen, basierend auf ein einzelnes Wort innerhalb eines Absatzes innerhalb einer Zelle

Ich freu mich so kopieren Sie eine Zeile von einem Blatt zu einem anderen, basierend auf, dass ein bestimmtes Wort in der Zelle. Ich habe ein Blatt, genannt "Daten" und ein Blatt zwei namens "Finale".

Hier ist ein Beispiel für die Daten

A         B            C               D  
john      mary         555.555.4939    initial reply to phone conversation  
Jim       jack         555.555.5555    floor estimate for bathroom  
jerry     kim          555.555.5553    initial response to phone call

Möchte ich kopieren Sie die gesamte Zeile aus dem Blatt "Daten" auf einem Blatt "final", wenn die Daten in Spalte " D " enthält entweder das Wort "Antworten" oder das Wort "Antwort".

InformationsquelleAutor jason | 2010-04-13
  1. 6

    Sollte diese Arbeit

    Sub Foo()

Dim i As Long, iMatches As Long
Dim aTokens() As String: aTokens = Split("reply,response", ",")

For Each cell In Sheets("data").Range("D:D")

    If (Len(cell.Value) = 0) Then Exit For

    For i = 0 To UBound(aTokens)
        If InStr(1, cell.Value, aTokens(i), vbTextCompare) Then
            iMatches = (iMatches + 1)
            Sheets("data").Rows(cell.Row).Copy Sheets("final").Rows(iMatches)
        End If
    Next

Next

End Sub
    • Gestimmt für den kurzen Weg zum kopieren einer Zeile zu einer anderen: WorkSheet1.Rows(Row1).Kopieren WorkSheet2.Zeilen(Row2)! Überall sonst die Beispiele waren einschließlich Schleifen ...
    InformationsquelleAutor Alex K.
Schreibe einen Kommentar