電子書籍の厳選無料作品が豊富！

おしえて

VBAで複数のシートをコピーしてシートの名前を連番にするには？

解決済

  • 質問者：sii316
  • 質問日時：
  • 回答数：1件

VBA初心者です。
エクセルでシート名”１”のシートを例えば19枚コピーし、
コピーしたシートに”２”～”20”と名前を付けたいです。
どうしたらよいですか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

こんなのいかがですか？


-----------------------------------------------------------------------
Sub Macro1()
Dim シート名 As Long
For シート名 = 20 To 2 Step -1
Sheets("1").Copy After:=Sheets("1")
ActiveSheet.Name = シート名
Next
End Sub
-----------------------------------------------------------------------
    • good
    • 0
    • 件
通報する
この回答へのお礼

ありがとうございます。
簡単に出来ました。

通報する
お礼日時：2016/09/09 13:53

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報