我有一個標簽頁,范圍從被命名為“01”到“53”。
我做了一個幾乎完美無瑕的劇本。但如果該值低于10-01、02、03等,則希望先用0命名該表。
這是當前代碼
Sub CopySheet()
Set ws = Sheets("01")
curName = Sheets("Data").Index + -1
ws.Copy Before:=Sheets("Data")
Set wsNew = Sheets(Sheets("Data").Index + -1)
wsNew.Name = curName + 1
End Sub
您可以按以下方式使用Format函數,以確保如果
curName + 1
是單個數字,那么它將以0作為前綴。