10/05/25 07:40:10
>>17
Alt+F11キー → 開いてるブックの名前で右クリック→挿入→標準モジュール。
以下 sub ～ end sub までを全部コピペして、A列（A1～空白行の前まで）に記入。
Alt+F8で Yatuke を選択して実行。
Sub Yattuke()
' A1以下に追加したい名前を列記して、Alt+F8で Yatuke を選択して実行。
' A列（A1～空白行の前まで）に記入した内容でシートを追加するやっつけマクロ。
' やっつけなので、いろいろ不具合はあるが、とりあえず既存シートと同じ名前がなければ動く。
Dim SetSheet As String
Dim WorkRows As Integer
WorkRows = 1
SetSheet = ActiveSheet.Name
Do While Sheets(SetSheet).Cells(WorkRows, 1) <> ""
Sheets.Add
ActiveSheet.Name = Sheets(SetSheet).Cells(WorkRows, 1)
Sheets(SetSheet).Select
WorkRows = WorkRows + 1
Loop
End Sub
こういうのを求めてんのかな・・・？