(マスター)というシートがありまして、そのシートをコピーしてシート名に1からの連番をふる
マクロをお教え下さい。
Sub sub_CopySample()
Dim myLooP As Integer
For myLooP = 1 To 10
Sheets("マスター").Copy After:=Sheets(myLooP)
Next myLooP
For myLooP = 1 To 10
Sheets(myLooP + 1).Name = myLooP
Next myLooP
End Sub
これだと止まりません。
1シートづつ増やしたいのですが。
No.4ベストアンサー
- 回答日時:
>1シートづつ増やしたいのですが。
マクロを実行するごとに1シート増やしたいという事でしょうか。
ブックにマスターというシートしかない(1番のシートを増やす時だけ)が前提ですが
Sub Macro1()
myNumber = Worksheets.Count
Sheets("マスター").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = myNumber
End Sub
No.3
- 回答日時:
>1シートづつ増やしたいのですが。
こういうことを言いたかったのですか。
sub macro2()
dim i
i = 1
worksheets("マスター").copy after:=worksheets(worksheets.count)
on error goto errhandle
activesheet.name = i
exit sub
errhandle:
i = i + 1
resume
end sub
No.2
- 回答日時:
im myLooP As Integer
For myLooP = 1 To 10
Sheets("sheet1").Copy After:=Sheets(myLooP)
Stop
Next myLooP
For myLooP = 1 To 10
Sheets(myLooP + 1).Name = myLooP
Next myLooP
End Sub
Stopを入れればそこで止まりますが。
No.1
- 回答日時:
はて?
sub macro1()
dim i as integer
for i = 1 to 10
’常にマスターからコピーする。複写シートに名前を付ける。
worksheets("マスター").copy after:=worksheets(worksheets.count)
activesheet.name = i
next i
end sub
といった事でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Visual Basic(VBA) userformでSheetを選択して開くコード 1 2023/05/15 16:27
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
複数シートの特定の位置に連番を振る方法??
その他(Microsoft Office)
-
Excel VBA シート名変更時、重複していたら連番を付けたい
その他(Microsoft Office)
-
エクセルのシートごとに連番を入れたい
Excel(エクセル)
-
-
4
エクセル、ワークシートの名前を連番(?)にする方法
Excel(エクセル)
-
5
EXCEL/VBAで右へ連番付きのワークシートの追加
Access(アクセス)
-
6
エクセルのシート名変更で重複した時のvbaの処理
Visual Basic(VBA)
-
7
エクセルでシート名を連続で参照するには
Excel(エクセル)
-
8
Excelシート名が重複してらシート名に連番を付加させる方法
Excel(エクセル)
-
9
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
10
マクロ VBA ファイル名を連番でつけたいのですが
Access(アクセス)
-
11
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
12
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
13
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
14
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
15
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
16
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
17
エクセルで前のシートを連続参照したい
Excel(エクセル)
-
18
vbaでファイルを開くパス名に変数を使いたい
Visual Basic(VBA)
-
19
【EXCEL2002】「貼り付け先の書式に合わせる」をVBAで実行したい
Excel(エクセル)
-
20
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】顧客番号にて一致さ...
-
【マクロ】毎回、ファイル名が...
-
エクセルのマクロで指定条件一...
-
EXCELVBA データを自動で別シー...
-
Excelで同じシートのコピーを一...
-
Excel、同じフォルダ内のExcel...
-
前の(左隣の)シートを連続参...
-
エクセルの複数シートの保護を...
-
条件に応じて特定の行を非表示...
-
別シート参照のセルをシート毎...
-
エクセルVBAでパスの¥マークに...
-
Excel2007で、太字にした行のみ...
-
Excelのシートを、まとめて表示...
-
VBAでシートコピー後、シート名...
-
エクセルで前シートを参照して...
-
Excelでセル内の数式は残し値だ...
-
エクセルで前のシートを連続参...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイル保存時に複...
-
EXCELで1ヶ月分の連続した日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのマクロで指定条件一...
-
シートをコピーして シートに...
-
Excelでシート名と最終更新日を...
-
エクセルのマクロ設定について...
-
Excel マクロ 他ブックのシート...
-
Excel シートを自動作成、セル...
-
シートをコピー、シート名を変更
-
Excel で選択しているセルの行...
-
Excel VBA 検索して該当行を抽出
-
エクセル マクロの作り方
-
EXCELVBA データを自動で別シー...
-
新しいマクロの記録でコピーし...
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
条件に応じて特定の行を非表示...
-
前の(左隣の)シートを連続参...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL:同じセルへどんどん足し...
-
EXCELで1ヶ月分の連続した日付...
おすすめ情報