|
はじめまして。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の同じ日付の行に貼り付けたいのです・・
色々調べてみまして似ているようなコードを参考にしてつくってみたのですが・・
どう変更していいのかわかりません・・・
何か良い方法がありましたら、教えていただけますでしょうか?
|
|