あなたはExcelのVBAに慣れていると仮定しています。
私が似たような目的で使用するコードは次のとおりです。ユーザーは2つの範囲を指定する必要があります。その後、セカンダリレンジの値とプライマリレンジの値を比較します。値が一致した場合、その倍精度浮動小数点が強調表示されます。
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
がうまくいけば、これはあなたを助けるでしょう。
いずれのデータセットの例もなければ、助けが非常に困難です。 – reasra