▽1
●
きゃづみぃ ●100ポイント ベストアンサー |
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個の個数となります。
適宜 作りたい個数に変更してください。