复制工作表并将其命名为带有前导零的数字

Question

我有一张标签，标签范围从“1”到“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

Answer 1

您可以通过以下方式使用格式 function 以确保如果curName + 1是单个数字，那么它将以 0 为前缀。

wsNew.Name = Format(curName + 1, "0#")