エクセルについて

質問

Sheet1のA列に任意の6桁の数字が300列ほどあります。

Sheet2のA列には任意の6桁の数字が150列ほどあります。

Sheet2のA列の数字はSheet1のA列に全件含まれています。

Sheet1のA列でSheet2のA列の数字が含まれていないもののみ
抜き出すかわかりやすいように色を変えるなどしたいのですが
どうしたらよいでしょうか？？

よろしくおねがいしますm(__)m

回答No.2

pkh4989

VBA で如何ですか。

Sub 抜き出し()
　　Dim wh1　　　　 As Worksheet
　　Dim wh2　　　　 As Worksheet
　　Dim c　　　　　 As Range
　　Dim f　　　　　 As Range
　　Dim wR　　　　　As Integer
　　'
　　Set wh1 = Worksheets("Sheet1")
　　Set wh2 = Worksheets("Sheet2")
　　wR = 0
　　With wh1
　　　　For Each c In Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
　　　　　　Set f = wh2.Range("A1:A" & wh2.Cells(Rows.Count, "A").End(xlUp).Row).Find(c.Value)
　　　　　　If f Is Nothing Then
　　　　　　　　.Cells(c.Row, "A").Interior.ColorIndex = 42　　 '←色設定
　　　　　　　　wR = wR + 1
　　　　　　　　.Cells(wR, "B") = c.Value　　　　　　　　　　　 '←B列へ展開
　　　　　　End If
　　　　Next
　　End With
End Sub

'マクロ貼付
(1) Alt+F11 (ツール → マクロ → Visual Basic Editor) →「挿入」→「標準モジュール」で表示される画面に貼り付け
(2) 実行は、(F5を押す)又は、シート画面に戻って Alt＋F8を押してマクロ一覧からマクロ名を選択して実行

お礼

急ぎの件だったためNO.1さんので対応しました。
ありがとうございました<(_ _)>