excel - 根据单元格内一个段落中的单个单词，将整行从一张纸复制到另一张纸

我希望根据单元格中的特定单词将一行从一张纸复制到另一张纸。我有一张工作表，称为“数据”，还有两张工作表，称为“最终”。

这是数据的一个例子

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”。

最佳答案

这应该工作

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

关于excel - 根据单元格内一个段落中的单个单词，将整行从一张纸复制到另一张纸，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/2630081/