Juntar abas de planilha Excel numa só

Prévia do material em texto

Juntar abas de planilha Excel numa só
30 de Maio de 2018 
Se você transformou um arquivo PDF em Excel, possivelmente a planilha eletrônica gerada tem muitas abas e para facilitar seu trabalho o ideal é juntar todas as abas em uma só.
A junção das abas será feito por VBA usando uma Macro.
Abra a planilha que você quer juntar as abas.
Clique em Alt+F11 para abrir o VBA.
No menu superior clique em Inserir > Módulo.
Uma janela será aberta e você vai colar a Macro abaixo.
INÍCIO DA MACRO
Sub juntarabas()
' desabilita atualização da tela
Application.ScreenUpdating = False
' desabilita mensagens
Application.DisplayAlerts = False
' dimensiona variável
Dim LIN As Integer
' copia o conteúdo da aba seguinte e apaga a aba
Do
Sheets("Table 1").Select
' define a primeira linha vazia da aba atual
LIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
' vai para a aba seguinte
ActiveSheet.Next.Select
' copia o conteúdo necessário
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
' volta para a aba inicial e cola
ActiveSheet.Previous.Select
Rows(LIN).Insert Shift:=xlDown
' vai para a aba copiada e deleta ela
ActiveSheet.Next.Select
ActiveSheet.Delete
' limpa a variável LIN
LIN = 0
' repete o procedimento até haver apenas 1 aba
Loop Until Worksheets.Count = 1
'apaga área de transferência
Application.CutCopyMode = False
' habilita atualização da tela
Application.ScreenUpdating = False
' habilita mensagens
Application.DisplayAlerts = False
Range("A1").Select
End Sub
FIM DA MACRO
Clique em Alt+Q para fechar o VBA e volte para a planilha eletrônica.
Clique em Alt+F8 para abrir o menu de Macros e selecione a Macro ‘juntarabas’ e, em seguida, clique em Executar.
Abracadabra! Sua planilha está com uma aba só!
Salve o arquivo em XLSX e a macro será descartada automaticamente.