Блог

Главная - Вопросы по программированию - Скопируйте лист и назовите его числом с начальным нулем

Скопируйте лист и назовите его числом с начальным нулем

#excel #vba

#excel #vba

Вопрос:

У меня есть лист с вкладками, которые варьируются от имени «1» до «53».

Я хотел бы сначала назвать листы с 0, если значение меньше 10 — 01, 02, 03 и т.д.

Вот текущий код

 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

Ответ №1:

Вы можете использовать функцию форматирования следующим образом, чтобы убедиться, что если curName 1 это одна цифра, то перед ней будет префикс 0.

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