Início / computer / Perguntas / 1584785
Accepted
whiskeychief
Asked: 2020-09-12 13:25:50 +0800 CST

Como você renumera planilhas em uma grande pasta de trabalho do Excel?

  • 772

Com uma pasta de trabalho do Excel com várias planilhas em uma pasta de trabalho, pode ser difícil renomear as planilhas manualmente se você inserir ou excluir uma planilha:

 Intro-A   <<== Skip this one, please
 Intro-B   <<== Skip 
 Intro-C   <<== Skip 
 Main-1    <<== Start renumbering here
 Main-2
 Main-3
           <<== Deleted
 Main-5
 Main-6...

e assim por diante. Se eu inserir ou excluir uma folha na sequência, tenho que renumerar as folhas manualmente. Como isso pode ser feito com o VBA para economizar tempo?

microsoft-excel vba

1 respostas

  1. Best Answer

    Usar uma macro

    Encontrei a resposta em um blog , "Notes of a Sysadmin" de Neseef.com, que fez a maior parte do que eu preciso. Adicionei a capacidade de pular as folhas introdutórias, solicitar o prefixo e evitar colisões de nomes que ocorrem quando uma folha é inserida.

    A macro não precisa estar na mesma pasta de trabalho. Pode estar em uma pasta de trabalho diferente, desde que ambas estejam abertas ao mesmo tempo.

    • ⚠ Atenção: Salve o Workbook antes de começar o trabalho!
    • Você pode adicionar a macro abaixo à sua pasta de trabalho ou criar uma Nova pasta de trabalho -- salve a pasta de trabalho com a macro como *.xlsm (Pasta de trabalho habilitada para macro).
    • Como de costume, Alt- F11: Insira : Módulo e cole a macro abaixo.
    • Retorne à pasta de trabalho com Alt- F4.
    • Execute a macro com Alt- F8e "OK".
    ' ** Rename Sheets ** 2020-09-10
' If you need to renumber your sheets sequentially, with a prefix,
' Like "AA-1, AA-2, AA-3" or "XX-A, XX-1, XX-2"..
' Suggested by this method: https://neseef.com/2019/03/31/excel-rename-multiple-worksheets-vbs/
' Use only on saved worksheets.  As-is.

Sub RenamingSheets()

Dim myPrefx As String

myStartSheet = InputBox("What sheet to start with? (1=first)", "Renaming Sheets")
myPrefx = InputBox("What prefix should the sheet names have?  (`BG-`, `Sheet`, etc.)", "Renaming Sheets")
myNum = InputBox("What's the first number you want to name the sheets?", "Renaming Sheets")

'Clear the names so there are no collisions
'(Temporarily set the name to a hopefully unique name)

For ws = myStartSheet To Worksheets.Count
    Sheets(ws).name = "Foo" & Worksheets.Count + ws
Next ws

'Now renumber

For ws = myStartSheet To Worksheets.Count
    Sheets(ws).name = myPrefx & myNum
    myNum = myNum + 1
Next ws

End Sub
    • 1

relate perguntas