Excel宏根据单元格内的单个单词,将整行从一个工作表复制到另一个工作表

Question

伙计们我正在寻找一个简单的excel宏,它可以根据单元格中的特定单词在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

如果D栏中的数据在段落中的某处包含单词"reply"或单词"response",我想将表格"数据"中的整行复制到表格"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