3枚のデータで重複を見つける

Question

3桁のA列にデータがあります。私は1シートのデータを取らなければならず、残りの2枚のデータと比較しなければならない。

誰かが私を助けることができますか？

Answer 1

これ以上の文脈や情報がなければ、私はあなたに高いレベルの応答を与えることができますが、うまくいけばそれを開始することができます。

ある範囲内の項目が別の範囲内にあるかどうかを確認するには、以下のコードでは1つの範囲から文字列を作成し、 "Instr"を使用して項目を別の範囲と比較します。より洗練された比較を行うには、範囲から配列を作成します。

Sub CompareLists() 
Dim rng1 As Range, rng2 As Range 
Dim cell As Range 
Dim tmp As String 

Set rng1 = Worksheets("Sheet1").Range("A1:A6") 
Set rng2 = Worksheets("Sheet2").Range("A1:A6") 

'Build pipe-delimited string from cells in range 
For Each cell In rng1 
    tmp = tmp & cell & "|" 
Next cell 

'Remove last pipe 
tmp = Left(tmp, Len(tmp) - 1) 

'Loop list 2 and compare against list 1. 
'Specifically, see if each item in list 2 is found in list 1 
For Each cell In rng2 
    If InStr(1, tmp, cell) > 0 Then 

     'Print items from list 2 that are found in list 1 
     Debug.Print "Found: " & cell.Value 

    Else 

     'Print items from list 2 that are NOT found in list 1 
     Debug.Print "NOT Found: " & cell.Value 

    End If 

Next cell 

Set rng1 = Nothing 
Set rng2 = Nothing 
Set cell = Nothing 

End Subの