Juntar abas de planilha excel numa só

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.

Comentários estão fechados