Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


69281 / 76732 ←次へ | 前へ→

【11969】Re:別シートに必要なデータだけ貼り付けたい
回答  Asaki  - 04/3/19(金) 16:25 -

引用なし
パスワード
   >検索した後はどのようにすればいいのでしょう。
検索で合致する値が見つかった場合は、同じ行のCとAを、結果を表示したいシートに貼り付けます。
検索から、コピーして貼付までの操作を、抽出したいNo全てに対して行うようにループ処理をします。
雰囲気的には、↓のような感じで。
尚、とりあえずは、検索元と抽出先は同じブックの別のシートということにします。
抽出先のシート名が Sheet2 と仮定しています。

Sub sample()

  Dim rng     As Range
  Dim sh     As Worksheet

  Set sh = Worksheets("Sheet2")
  For Each rng In sh.Range("A2", sh.Cells(65536, 1).End(xlUp))
    '検索:検索値は rng.Value を指定
    '値の貼り付け
  Next rng

  Set sh = Nothing
End Sub
5 hits

【11927】別シートに必要なデータだけ貼り付けたい かを 04/3/18(木) 18:38 質問
【11930】Re:別シートに必要なデータだけ貼り付けたい IROC 04/3/18(木) 18:47 回答
【11931】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/18(木) 19:00 発言
【11933】Re:別シートに必要なデータだけ貼り付けたい IROC 04/3/18(木) 20:48 回答
【11947】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/19(金) 9:24 発言
【11948】Re:別シートに必要なデータだけ貼り付けたい Asaki 04/3/19(金) 9:45 回答
【11950】Re:別シートに必要なデータだけ貼り付けたい IROC 04/3/19(金) 10:09 回答
【11953】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/19(金) 10:54 発言
【11955】Re:別シートに必要なデータだけ貼り付けたい IROC 04/3/19(金) 11:11 回答
【11963】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/19(金) 14:21 発言
【11965】Re:別シートに必要なデータだけ貼り付けたい Asaki 04/3/19(金) 15:00 回答
【11968】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/19(金) 15:58 発言
【11969】Re:別シートに必要なデータだけ貼り付けたい Asaki 04/3/19(金) 16:25 回答
【11974】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/19(金) 19:11 発言
【11982】Re:別シートに必要なデータだけ貼り付けたい Asaki 04/3/20(土) 14:47 回答
【11998】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/21(日) 11:58 発言
【12000】Re:別シートに必要なデータだけ貼り付けたい Asaki 04/3/21(日) 16:40 回答
【11999】Re:別シートに必要なデータだけ貼り付けたい Hirofumi 04/3/21(日) 14:18 回答
【12011】Re:別シートに必要なデータだけ貼り付けたい かを 04/3/22(月) 10:23 お礼

69281 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free