|
いつもお世話になっております。
Excelでオートフィルターの絞込列をずらしながら、
絞り込んだデータを別シートにコピペしたいのですが
どのようなVBAにすればいいか教えていただきたく投稿いたします。
お手数をおかけして恐縮ではございますが、お力をお貸しいただけますと幸いです。
やりたいことは以下の通りです。
------------------------------------------------------------------------------
「Data」というシートのA列〜FK列に商品情報が、FL列〜JI列に各月の販売データが、
NH列〜RE列に販売データをもとに設定した”ON/OFF”情報が入力されています。
(例えばFL列のデータとNH列のFLGが対応)
この「Data」シートでオートフィルタ―を使い、
1. NH列をON”で絞り込む操作をした後、
2. D/G/J列(この3列は固定)とFLGに対応する販売データ(FL列)をコピーして
3. 同ファイル内にある「Filter」シートのA1セルに張り付け、
4.「Data」シートのフィルタを解除する
という処理を1まとまりとして、これをFLG列分繰り返したく思います。
(NH列の次はNI列でフィルタをかけ、D/G/J列とFM列をコピーして、
「Filter」シートのG1セルに張り付け)
単純にフィルタをかけるVBAは下記で対応できたのですが、
絞込列とコピペ列をずらして繰り返し処理するにはどうしたらいいでしょうか。
Sub Sample()
With Sheets("Data").Range("NH1")
.AutoFilter Field:=1, Criteria1:="ON"
End With
End Sub
お手数をおかけして恐縮ではございますが、
重ねてお力添えのほど宜しくお願い致します。
【やりたいことのまとめ】
・絞込条件列を1列ずつずらしてフィルタをかける
・コピー列を1列ずつずらしてコピーする(ただし、D/G/J列は常にコピー対象)
・貼付け済みのデータから1列空けた列に貼付けを行う
|
|