将Excel中的一个工作表中的列组与Excel中的另一个工作表进行比较

时间:2017-02-07 15:49:11

标签: excel excel-formula excel-2013

我在Excel的第1页中有5列,而我的第2页包含10列。

现在我的问题陈述是我需要找到表1中的完整记录(5列的组合)是否存在于表2中,如果它存在我需要在表2中识别该特定记录。

请告诉我如何在Microsoft Excel中实现此目的。

此致 地塞米松。

1 个答案:

答案 0 :(得分:0)


我假设你习惯了Excel的VBA 这是我用于类似目的的代码:它要求用户指定两个范围。然后它比较从次要范围到主要范围的值。如果值匹配,则双击将突出显示

Dim G
Dim h
Dim LIMIT_G As Single
Dim LIMIT_h As Single
Dim Buffer As String

Sub KillDouble()

Set G = Application.InputBox(Prompt:="Please Select First Range", Title:="First Range Select", Type:=8)
Set h = Application.InputBox(Prompt:="Please Select Second Range", Title:="Second Range Select", Type:=8)


Application.Goto G

With Selection.Areas(Selection.Areas.Count)
LIMIT_G = .Cells(.Rows.Count, .Columns.Count).Row - .Cells(1).Row + 1
    For j = 1 To LIMIT_G
    Buffer = .Cells(j).Value

    Application.Goto h

    With Selection.Areas(Selection.Areas.Count)
        LIMIT_h = .Cells(.Rows.Count, .Columns.Count).Row - .Cells(1).Row + 1
        For i = 1 To LIMIT_h
            .Cells(i).Activate
                If ActiveCell.Value = Buffer Then
                ActiveCell.Interior.Color = RGB(255, 255, 0)
                End If
        Next i
    End With
    Next j
End With

End Sub



希望这对你有帮助。