Excel VBA質問箱 IV

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

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


4486 / 76732 ←次へ | 前へ→

【77868】オートフィルターの絞込列と抽出結果のコピペ列をずらしながらの繰り返し処理
質問  綾香  - 16/1/16(土) 0:26 -

引用なし
パスワード
   いつもお世話になっております。

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列空けた列に貼付けを行う
4 hits

【77868】オートフィルターの絞込列と抽出結果のコピペ列をずらしながらの繰り返し処... 綾香 16/1/16(土) 0:26 質問[未読]
【77870】Re:オートフィルターの絞込列と抽出結果の... β 16/1/16(土) 8:35 発言[未読]
【77872】Re:オートフィルターの絞込列と抽出結果の... β 16/1/16(土) 8:58 発言[未読]
【77876】Re:オートフィルターの絞込列と抽出結果の... 綾香 16/1/16(土) 17:17 お礼[未読]

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