Excel VBA質問箱 IV

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

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


24758 / 76738 ←次へ | 前へ→

【57327】抽出データをコピーし、貼り付けたいのですが・・
質問  みどり  - 08/8/7(木) 23:58 -

引用なし
パスワード
   はじめまして。VBA初心者です。Exel2000を使用しています。
よろしくお願いします。

sheet1にてオートフィルタで日付(D列)から検索し、抽出したデータを別のファイルsheet2へ同じ日付のセルにMatch関数にてデータを貼り付けしようとしております。

(sheet1)・・オートフィルタD列の日付で抽出。
  A   B    C      D     E     ・・・・・
1 番号 県名   名前    日付    ***・・・・・       
1  1  北海道  佐藤   20080807   ***
2  2  青森   伊藤   20080807   ***
3  3  茨城   高橋   20080808   ***
4  4  大阪   青木   20080809   ***
5  5   福岡   山田   20080809   ***
・ 

↑同じように別エクセルファイルsheet2のD列にも日付が入っております。項目も同じように並んでおります。

Sub 抽出したデータをコピーして貼付()

Dim データの日付 As Long
  Selection.CurrentRegion.Copy
  データ日付 = Range("D1").Value---------------※注

Workbooks("別ファイル.xls").Activate
Sheets("sheet2").Select            
Set 検査範囲 = Sheets("sheet2").Range(N1:N65536)
行番号 = Application.WorksheetFunction.Match(データ日付,検査範囲,0)
Range("A" & 行番号).Select
Selection.PasteSpecial Paste:=xlPasteAll

----------------------------------------------
質問は、
ただ今 ※注 のD1のセルの日付のみしか抽出できないコードなのですが、
D列で抽出した結果の日付を見て、Sheet2の同じ日付の行に貼り付けたいのです・・
色々調べてみまして似ているようなコードを参考にしてつくってみたのですが・・
どう変更していいのかわかりません・・・
何か良い方法がありましたら、教えていただけますでしょうか?
0 hits

【57327】抽出データをコピーし、貼り付けたいのですが・・ みどり 08/8/7(木) 23:58 質問
【57330】Re:抽出データをコピーし、貼り付けたいの... Jaka 08/8/8(金) 15:49 発言
【57334】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/8(金) 18:54 お礼
【57335】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/8(金) 20:20 発言
【57336】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/8(金) 20:31 発言
【57337】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 1:32 お礼
【57338】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 10:37 発言
【57339】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 13:55 お礼
【57340】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 16:13 発言
【57341】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 17:00 発言
【57343】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 20:49 お礼
【57342】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 19:12 発言
【57344】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 20:58 お礼

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