Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将Excel中一张工作表中的列组与Excel中另一张工作表中的列组进行比较_Excel_Vba_Excel Formula - Fatal编程技术网

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

将Excel中一张工作表中的列组与Excel中另一张工作表中的列组进行比较,excel,vba,excel-formula,Excel,Vba,Excel Formula,Excel的第1页有5列,第2页有10列 现在我的问题是我需要从表1(5列的组合)中找到完整的记录,无论它是否存在于表2中,如果它存在,我需要在表2中识别特定的记录 请告诉我如何在Microsoft Excel中实现此功能。 我假设您已经习惯了Excel的VBA。 下面是一个我用于类似目的的代码:它要求用户指定两个范围。然后比较从次要范围到主要范围的值。如果值匹配,则双精度将突出显示。 希望这将对您有所帮助。如果没有这两种数据集的示例,很难提供帮助。 Dim G Dim h Dim LIM

Excel的第1页有5列,第2页有10列

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

请告诉我如何在Microsoft Excel中实现此功能。


我假设您已经习惯了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