セルの値をシート名2

いつもお世話になっております。
セルＡ2からＡ31まで
データが入力されていて、
その日付のデータ分　シートを増やして
シート名をセルＡ2からＡ31までの
値にしたいです。
わかる方おしえてくれませんでしょうか

No.1 ベストアンサー 回答者： zongai 回答日時： 2021/04/08 23:15

ざっくり作るとこんな感じ。

シート名になるデータの書かれたシートの名を「MAIN」としています。

Sub Macro()
　　For i = 2 To 31
　　　　Sheets.Add After:=Sheets(Sheets.Count)
　　　　ActiveSheet.Name = Format(Sheets("MAIN").Cells(i, 1), "m月d日")
　　Next
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2021/04/09 07:35

No.2 回答者： ママチャリ 回答日時： 2021/04/08 23:23

ついでなので、書いてみました。

でも、こんなシートを複製して何をするんですか~？？

Sub sample()
Dim r As Range
For Each r In Range("A2:A31")
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = r.Text
Next r
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2021/04/09 07:42