人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【エクセルマクロ】会社リストのワークシートと、注文リストのワークシートがあります。両方ともA列には会社ごとに一意のIDが入っています。このIDをキーに、一度も注文がない会社だけを抽出した会社リストを作成するマクロを教えてください。注文のある会社で、会社リストにないものはありません。 ワークシート操作なら出来たのですが、自動記録で上手くマクロ化できませんでした。


ワークシート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 □□会社 豊島区…」を抽出

●質問者: capsuleq
●カテゴリ:コンピュータ
✍キーワード:AA BB CC いもの エクセル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●200ポイント ベストアンサー

シート名がそれぞれ、会社リスト、商品リストとして、抽出するシートをアクティブにして実行してみてください。

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さん

ありがとうございます!

ばっちり思い通りに動きました。

大感謝です。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ