お世話になります。
以前ここで教えてもらったマクロのシート名のつけ方をすこし手直ししたいのでアドバイスください。
以下のマクロは、1シート目を決まった行数分に分割し各シートに振り分けるものです。今のマクロではシート名は分割1、分割2…分割10…などなりますが、Worksheets(1) のシート名+3桁の連番(001,002…010…)などとしたい。
Worksheets(1) のシート名が「総務課」の場合、総務課001,総務課002…総務課010…となるのが理想です。
このようにするためにはマクロをどのように修正すればよいか教えてください。
Sub シート分割()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim i As Integer
Dim Bunkatsu As Integer
Set WS1 = Worksheets(1) 'コピー元のデータシート
Set WS2 = WS1
Bunkatsu = 1
Application.ScreenUpdating = False
For i = 7 To WS1.Cells(Rows.Count, 1).End(xlUp).Row Step 25
Set WS2 = Worksheets.Add(After:=WS2)
WS2.Name = "分割" & Bunkatsu
WS1.Rows("1:6").Copy WS2.Cells(1, 1)
WS1.Rows(i & ":" & i + 24).Copy WS2.Cells(7, 1)
Bunkatsu = Bunkatsu + 1
Next
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロを複数シートに実行する...
-
コマンドボタンがデザインモー...
-
エクセルでシートの並び替えで...
-
マクロ 各シートの決められた位...
-
EXCELのエラー
-
エクセル シート保護をかける...
-
エクセルVBAでcmbBoxのプロパテ...
-
VBA シート名を先月の名前に...
-
エクセル2013でマクロのボタン...
-
エクセルで回数をカウントする...
-
VBA ワークシートオブジェクト...
-
エクセルで複数のSheetを一括フ...
-
エクセルを開いたとき常に同じ...
-
シートを保護した時でも並べ替...
-
【 Excel】シートの見出しに自...
-
VBAでユーザーに別ファイルのシ...
-
Excelのマクロの呼び出し元を知...
-
うまくマクロが実行しません
-
EXCELでマクロを使わずに図形の...
-
シートの保護を実行した時、マ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロを複数シートに実行する...
-
コマンドボタンがデザインモー...
-
エクセルを開いたとき常に同じ...
-
【 Excel】シートの見出しに自...
-
エクセルでシートの並び替えで...
-
VBAで条件によってシート見出し...
-
EXCELでワークシートを開いたら...
-
EXCELでマクロを使わずに図形の...
-
マクロを特定の複数シートで実...
-
エクセルの複数のワークシート...
-
EXCELのエラー
-
複数シートの保護・解除
-
VBA シート名を先月の名前に...
-
エクセル2013でマクロのボタン...
-
VBAで作るexcel検索窓
-
EXCELの起動時に常に同じ...
-
シートを保護した時でも並べ替...
-
Excelで,特定のシートを開いた...
-
Excelのマクロの呼び出し元を知...
-
メッセージボックスでシート名...
おすすめ情報