|
こんにちは
とりあえずこんな感じでいかがでしょうか。^d^
Sub test()
Dim rngA As Range
Dim rngB As Range
Dim Dic As Object
Dim myCell As Range
Set rngA = ActiveSheet.UsedRange.Columns("A:A")
Set rngB = ActiveSheet.UsedRange.Columns("B:B")
Set Dic = CreateObject("Scripting.Dictionary")
For Each myCell In rngA.Cells
Dic.Item(CStr(myCell.Value)) = Empty
Next
For Each myCell In rngB.Cells
With myCell
If Dic.Exists(CStr(.Value)) Then
.Interior.ColorIndex = 3
End If
End With
Next
Set myCell = Nothing
Set Dic = Nothing
Set rngB = Nothing
Set rngA = Nothing
End Sub
範囲指定はどうしたいのか分からなかったので固定にしてあります。
なお、もっと簡単に実行したいということでしたらこんな出来合いのソフトもあります。
(ただし、列どうしの比較のみですが)
秒速!ダブリ出し
http://www.vector.co.jp/soft/win95/business/se363400.html
|
|