Planilhas de nome de ajuda do Excel 2010 automaticamente

Question

Eu preciso criar um livro de trabalho contendo 52 folhas, sendo a primeira a semana 1, depois a semana 2 e assim por diante. Como posso fazer isso sem renomear cada folha manualmente?

Obrigado

    

Answer 1

Não vejo restrições sobre como alcançar isso, então usei o código 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

O que isso faz é renomear as planilhas existentes: portanto, se você usar uma nova pasta de trabalho, terá 3 planilhas e elas serão renomeadas para week1, week2 e week3. Quando as planilhas existentes forem renomeadas, o código gerará novas planilhas e as nomeará como "semana" com o número da planilha.

Se você tiver mais recursos ou problemas com essa solução, fique à vontade para comentar.