|
元シートにあるデータを列分だけ追加して、データをコピーしたいです。
1.元シートにあるデータはA列〜AH列の34列ですので、34シート追加したいです。
2.どの新シートも固定で
A列:元シートのP列
B列:元シートのW列
3.C列は1列毎のデータをコピー
4.シートのタイトル名はそれぞれの列の1行目の項目
にしたいです。
-----------------------------------
例)
■元シートのA1セル:「みかん」の場合、新シート名は「みかん」
シート名「みかん」のC列は、元シートのA列のデータのコピー
A列:元シートのP列
B列:元シートのW列
■元シートのB1セル:「りんご」の場合、新シート名は「りんご」
シート名「りんご」のC列は、元シートのB列のデータのコピー
A列:元シートのP列
B列:元シートのW列
-----------------------------------
うまく伝わりますでしょうか?
Sheets("新シート").Columns("A:A").Value = Sheets("元シート").Columns("P:P").Value
で1ページずつやってみたのですが、大変時間がかかりうまく出来ませんでした。
|
|