ワークシートA(会社リスト)
A B C
1 C111 ○○会社 渋谷区…
2 C112 △△社 新宿区…
3 C113 □□会社 豊島区…
ワークシートB (注文リスト)
A B C D
1 C111 ○○会社 商品AA 10
2 C112 △△社 商品BB 30
3 C111 ○○会社 商品CC 20
→「C113 □□会社 豊島区…」を抽出
シート名がそれぞれ、会社リスト、商品リストとして、抽出するシートをアクティブにして実行してみてください。
Sub Macro() Dim lastRow As Long Dim i As Long Dim count As Long Dim obj As Object lastRow = Worksheets("会社リスト").Cells(Rows.count, 1).End(xlUp).Row count = 1 With Worksheets("会社リスト") For i = 1 To lastRow Set obj = Worksheets("注文リスト").Range("A:A").Find(.Cells(i, 1).Value, LookAt:=xlWhole) If obj Is Nothing Then Cells(count, 1).Value = .Cells(i, 1).Value Cells(count, 2).Value = .Cells(i, 2).Value Cells(count, 3).Value = .Cells(i, 3).Value count = count + 1 End If Next i End With End Sub
SALINGERさん
ありがとうございます!
ばっちり思い通りに動きました。
大感謝です。