比较同一工作簿中两个Excel工作表中的两组列

Question

工作表1

+------+-------+
|  ID  | Name  |
+------+-------+
| 1245 | James |
| 9377 | Jacob |
| 6201 | David |
| .    | .     |
| .    | .     |
| .    | .     |
+------+-------+

工作表2

+------+-------+
|  ID  | Name  |
+------+-------+
| 1245 | James |
| 9007 | Adam  |
| 9377 | Jacob |
| 6201 | David |
| .    | .     |
| .    | .     |
| .    | .     |
+------+-------+

从理论上讲，两个工作表都是彼此的复本，但Sheet2具有其他数据。 Sheet1包含10000行，Sheet2包含15000行。如何在两个工作表之间进行比较以显示/突出显示Sheet2中的5000个不同的行？

Answer 1

对于此类任务，我使用adodb记录集来存储第一张纸上的内容。 然后，我阅读了第二张纸，看是否在第一张纸上。

在您的VBA IDE中，转到工具菜单，然后选择引用。 选择“ Microsoft ActiveX数据对象2.8库”。

Dim rs As New ADODB.Recordset
Dim ws As Excel.Worksheet
Dim lRow As Long

    Set ws = Application.ActiveSheet

    'Add fields to your recordset for storing data.  You can store sums here.
    With rs
        .Fields.Append "Row", adInteger
        .Fields.Append "ID", adInteger
        .Fields.Append "NAME", adChar, 50
        .Open
    End With

    lRow = 1

    'Loop through and record what is in the first sheet
    Do While lRow <= ws.UsedRange.Rows.count

        rs.AddNew
        rs.Fields("Row").Value = lRow
        rs.Fields("ID").Value = ws.Range("A" & lRow).Value
        rs.Fields("NAME").Value = ws.Range("B" & lRow).Value
        rs.Update

        lRow = lRow + 1
        ws.Range("A" & lRow).Activate
    Loop

    'Switch to the second worksheet
    Set ws = Nothing
    Set ws = ActiveWorkbook.Sheets("Sheet2")
    ws.Activate

    'Loop through and compare to what was on the first column
    lRow = 1
    Do While lRow <= ws.UsedRange.Rows.count

        rs.Filter = ""
        rs.Filter = "ID=" & ws.Range("A" & lRow).Value
        If rs.RecordCount = 0 Then
             'We don't have a match, color the row
             Rows(lRow).Interior.Color = vbBlue
        End If

        lRow = lRow + 1
        ws.Range("A" & lRow).Activate
    Loop

Answer 2

您可以在Sheet2上使用以下函数来查找Sheet2的值，并查看它们是否存在于Sheet1 ：

=IF(COUNTIFS(A2,Sheet1!A:A,B2,Sheet1!B:B)>0,"","X")

假设您在Sheet2 C2输入公式。 COUNTIFS()仅检查Sheet1的ID和Name并返回找到的匹配行数。 如果找到它，我们将不在乎（ "" ）。 如果找不到，则它是Sheet2专用的，我们将其标记为"X" 。

当然，您也可以在VBA中执行此操作：

With Sheet2.Range("C2:C" & Sheet2.UsedRange.Rows.Count)
    .Formula = "=IF(COUNTIFS(A2,Sheet1!A:A,B2,Sheet1!B:B)>0,"""",""X"")"
    .Value = .Value ' (If you want to remove the formula)
End With