Excel比较两列，将匹配的行复制到新工作表

Question

我一直在尝试这样做一段时间，但不断遇到障碍。

我在Excel中有一个工作表，其中有5列数据：A，B，C，D和E。

我有另一列 F 包含一些数据。

我

想要的是一个公式或宏，这样我就可以在B列的F列中找到所有值，并且只将整行（A，B，C，D 和E）复制到新工作表中（或者只是删除所有其他值）。

我尝试做一个公式并删除错误行，但它弄乱了数据。

有什么想法吗？

Answer 1

正如我所知道的那样，你有如下数据

比较 C 列与 B 列

A       B       C
Row 1   Value 1 Value 3
Row 2   Value 2 Value 5
Row 3   Value 3 Value 8
Row 4   Value 4 Value 3
Row 5   Value 5 Value 5
Row 6   Value 6 Value 8
Row 7   Value 7 Value 3
Row 8   Value 8 Value 5
Row 9   Value 9 Value 8

并且您希望结果在工作表2中

A       B
Row 3   Value 3
Row 5   Value 5
Row 8   Value 8

尝试以下代码

Sub Macro1()
    Dim Counter As Long
    Dim lastRow As Long
    lastRow = 10
    Dim arrColF(10) As String
    Sheets("Sheet1").Select
    For Counter = 1 To lastRow Step 1
        arrColF(Counter - 1) = Sheet1.Cells(Counter, 3).Value
    Next Counter
    arrStr = Join(arrColF, ", ")
    Dim strRange As String
    For Counter = 1 To lastRow Step 1
        If InStr(1, arrStr, Sheet1.Cells(Counter, 2).Value & ", ") > 0 Then
            strRange = strRange & "A" & Counter & ":B" & Counter
            If Trim(strRange) <> "" Then strRange = strRange & ","
        End If
    Next Counter
    strRange = Left(strRange, Len(strRange) - 1)
    Sheet1.Range(strRange).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub