|
こんばんわ。
すみませんが、教えてください。
オートフィルタで抽出したデータを他のブックに貼り付けるマクロを考えています。抽出条件は指定期間(例2005/7/1〜2005/7/31)にあうものです。
名前 国語 数学 社会 理科
A 7/1 7/6 7/1 7/3
B 7/3 6/30 7/5
C 7/2 6/30 7/1
D 7/5 7/2 7/3 7/1
E 6/27 7/1 7/5
国語(B列)の指定期間を抽出して貼り付けるマクロはできたのですが、国語で空白セルのところがあった時に、空白セルの行のみ次の数学(C列)にうつって指定期間の抽出、また条件にあわなければ次の列へ・・・という動きをし、結果を他のブックに貼り付けたいのですがどの様に作ればいいのかで悩んでいます。
今の状態です。
Workbooks.Open Filename:=元データ
Sheets(wsn).Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=開始年月日, Operator:=xlAnd, _
Criteria2:=終了年月日
Selection.CurrentRegion.Select
Selection.Copy
これをどう変えたらいいのか、教えていただきたいです。
宜しくお願いします。
|
|