• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• SALINGER2010/06/03 11:20:37

  満足200pt

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

  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
  

  スター

  • capsuleq 2010/06/03 13:01:09

    SALINGERさん

    ありがとうございます！

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

    大感謝です。

その他の回答

この質問へのコメント

• capsuleq2010/06/03 11:01:02
  抽出したリストは新しいワークシートに記載したいです。
• SALINGER2010/06/03 11:22:43
  新規にワークシートを挿入して抽出する場合は、最初のほうに
  Worksheets.Add
  と入れておいてください。
• SALINGER2010/06/03 11:28:08
  商品リスト→注文リストでした

質問の情報

登録日時

2010-06-03 10:56:10

終了日時

2010-06-03 13:01:25

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 現在の仕事が工場での作業なのですが、腰が痛いです。整体や病院には行っていないのですが、将来的に腰痛は…匿名質問者22日前
• 女子の皆さんに質問です。 男子が胸のあたり見てたら気づきますか? また、どの程度で気づくのかもできたら…匿名質問者12日前
• 退職後三ヶ月後に賃貸したい場合、社名に直近の職を書いて歴は実際働いてたらの歴を書いても大丈夫ですか？…dmw8875111日前
• 男性の方に質問させていただきたいです １ヶ月ほど前から一目惚れしていた先輩と初めて直接お話しできた日…匿名質問者11日前
• 新古車の支払い総額が127万で、ナビ、バックカメラ、ドラレコ前後つけて乗り出し価格171万です。高く感じま…dmw887511日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ