シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。
Public Sub シート削除リネーム() Dim sss Dim shtname1 Dim shtname2 sss = Range("A1") shtname1 = sss & "注文データ" shtname2 = sss & "注文データ (2)" Worksheets(shtname1).Delete Worksheets(shtname2).Name = shtname1 End Sub
シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。
Public Sub シート削除リネーム() Dim sss Dim shtname1 Dim shtname2 sss = Range("A1") shtname1 = sss & "注文データ" shtname2 = sss & "注文データ (2)" Worksheets(shtname1).Delete Worksheets(shtname2).Name = shtname1 End Sub