根據單元格內一個段落中的單個單詞，將整行從一張紙復制到另一張紙

Question

我希望根據單元格中的特定單詞將一行從一張紙復制到另一張紙。 我有一張工作表，稱為“數據”，還有兩張工作表，稱為“最終”。

這是數據的一個例子

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

如果列D中的數據包含單詞“ reply”或單詞“ response”，我想將整個行從表單“ data”復制到表單“ final”。

Answer 1

這應該工作

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