将Excel中一张工作表中的列组与Excel中另一张工作表中的列组进行比较
Excel的第1页有5列,第2页有10列 现在我的问题是我需要从表1(5列的组合)中找到完整的记录,无论它是否存在于表2中,如果它存在,我需要在表2中识别特定的记录 请告诉我如何在Microsoft 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的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