Excelmacros可以根据单元格内的段落内的单个单词将整行从一张表复制到另一张表

伙计们，我正在寻找一个简单的Excelmacros，可以从一张表格复制到另一个Excel表格内的基于单元格中的特定单词。 我有一个名为“数据”的工作表和一个名为“final”的工作表。 这里是数据的一个实例

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

任何提示将是非常有义务的。

谢谢，J

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