|
Sheet1のA列の値に重複がないとすれば・・
Dim MyR As Range, C As Range, FR As Range
Set MyR = Sheets("Sheet1").Range("A:A").SpecialCells(2)
For Each C In MyR
Set FR = Sheets("Sheet2").Range("A:A") _
.Find(FDt, , xlValues, xlPart)
If Not FR Is Nothing Then
Debug.Print FR.Offset(, 1).Address(0, 0) & _
" : " & FR.Offset(, 1).Value
Set FR = Nothing
End If
Next
Set MyR = Nothing
重複があるなら・・
>Set MyR = Sheets("Sheet1").Range("A:A").SpecialCells(2)
↓
With Sheets("Sheet1")
With .Range("A1", .Range("A65536").End(xlUp))
.Offset(, 26).Formula = "=IF(COUNTIF($A$1:$A2,$A2)=1,1,"""")"
Set MyR = .SpecialCells(3, 1).Offset(, -26)
.Offset(, 26).ClearContents
End With
End With
というふうに変更します。
AA列を作業列として数式を埋め込んで重複を判定し、ループ処理の際に排除しています。
検索結果はイミディエイトウィンドウに出力されます。VBE画面で Ctrl + G を押して
確認できます。
|
|