エクセルでsheet1からn個の複数のSheetに白紙の状態でA列とG列のみを文字列指定するマクロができましたらお願いします
複数のsheetもマクロで指定してできれば良いですができなければ手動であらかじめ
作成しておきます
よろしくお願いします
Sub Macro1() For a = 1 To 3 Sheets.Add Range("A:A,G:G").NumberFormatLocal = "@" Next a End Sub
sheet1からn個とありますが、追加するシートは 既存のシートの次から作ります。
質問内容からして これでもいいかなと判断したのですが
sheet1からがよいのならば少し プログラムの修正が必要となります。
あと
For a = 1 To 3
の 最後の 3が n個の個数となります。
適宜 作りたい個数に変更してください。
追記
2012/10/11 19:47:31追加したいシート数は パソコンのメモリ等の影響を受けます。
なので 1000個追加できるのか2000個追加できるのかは 機種ごとに違います。
ま、Excel2007以降なら こういうのが影響するかは不明ですが・・・。
ありがとうございます
2012/10/11 20:03:21これで大丈夫ですうまくいきました