Excel Macro根據單個單詞在單元格內的一個段落內將一整行從一張表單複製到另一個單元格內

Question

夥計我正在尋找一個簡單的excel宏，可以將一行從一張表格複製到另一張表格中的另一張表格基於在單元中具有特定單詞。我有一張名爲「數據」的表單和一個名爲「final」的表單。下面是數據

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 

的eaxmple我想從片材「數據」不是整個行復制到片材的「最終」如果在列d中的數據中包含的任何單詞「回覆」或單詞在該段落內的某處「迴應」。

任何提示將非常有義務。

感謝， Ĵ

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