Мне нужно создать рабочую книгу, состоящую из 52 листов, первая из которых будет названа неделя 1, затем неделя 2 и так далее. Как я могу сделать это без переименования каждого листа вручную.
Спасибо
Мне нужно создать рабочую книгу, состоящую из 52 листов, первая из которых будет названа неделя 1, затем неделя 2 и так далее. Как я могу сделать это без переименования каждого листа вручную.
Спасибо
Я не вижу каких-либо ограничений для достижения этой цели, поэтому я использовал код VBA:
Sub btnClick()
Dim counter As Integer
counter = 1
For Each ws In ActiveWorkbook.Worksheets
ws.Name = "Week" & counter
counter = counter + 1
Next
Do While counter < 53
Worksheets.Add().Name = "Week" & counter
counter = counter + 1
Loop
End Sub
Для этого нужно переименовать существующие рабочие листы: поэтому, если вы используете новую рабочую книгу, у вас будет 3 рабочих листа, и они будут переименованы в неделю1, неделю2 и неделю3. Когда существующие рабочие листы будут переименованы, код сгенерирует новые рабочие листы и назовет их "неделя" с номером рабочего листа.
Если у вас есть какие-либо дополнительные функции или проблемы с этим решением, не стесняйтесь комментировать.