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

ベストアンサー

• 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回まで

この質問のカテゴリ

• コンピュータ

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

人気の質問

• いつも大変お世話になっています。 アスペルガー精神3級独身会社員34歳男です。 最近心身共に疲れがもの凄…hayakushinene11日前
• https://hikky-mura.org/t/topic/2523/7 でsma200さんという方に戸塚ヨットスクールを勧められましたが、僕…hayakushinene11日前
• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者2214日前
• 度々すみません。 私は以前から大学入試・成績など教育関連のネガティブな夢を見ていましたが、ここ最近そ…hayakushinene152日前
• 学歴詐称ではなくて、貴族称号詐称について伺います。イボンヌの香りという映画で、ロシアの伯爵を詐称して…匿名質問者3日前

メニュー

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

PC版

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