| |
▼マリモ さん：
>１つのフォルダ内に元となるエクセルシートがあり、
>１行目にフィルタがかけてあります。
>Ａ列は「月」Ｂ列は「日」Ｃ列は「番号」が入っており、
>その横にＤ列、Ｅ列、Ｆ列に数字が入っております。
>
>同じフォルダ内に
>月_日_番号_○○○.xlsxというエクセルシートが沢山入っており、
>その個々のエクセルシートに
>Ａ列、Ｂ列、Ｃ列のフィルタを選択したときの
>Ｄ列、Ｅ列、Ｆ列をコピーし、それを全てのシート固定のところ、例えばＨ列２〜４行目に
>縦横逆に貼り付けをする作業を
>このvbaで処理することは可能でしょうか。
可能です。
元となる表にたいして A列を「月」で、同時に、B列を「日」で、
また同時にC列に対して「番号」でAutoFilterをかければいいのです。
フィルタで抽出したデータを貼りつける 月_日_番号 のxlsxファイルを
あらかじめ開いておいて、
フィルタをかけて抽出された行のうち、
> Ｄ列、Ｅ列、Ｆ列をコピーし、それを全てのシート固定のところ、
> 例えばＨ列２〜４行目に
> 縦横逆に貼り付けをする作業を
マクロの記録をとってみてください。
特定の 月_日_番号 の抽出転記 の基本コードが得られたら、
あとは 表にあるすべての 月_日_番号 パターンを調べて それをLoopで
回せばいいことになります。
|
|
kanabun
- 14/6/9(月) 14:38 -
