Excel Juntar abas no excel

[Jéssica Pinheiro]

Converti um arquivo PDF em excel, preciso juntar as abas para importar no meu sistema, já tentei alguns codigos macro que vi no forum, porém só copia para a nova aba parte do conteudo, por exemplo o começo da primeira pagina. 

 

Golden 052018 (1).xlsx

[Muca Costa]

Tente assim:

Crie um aba nomeando para CONSOLIDADO

Selecione todas a planilhas e na célula G1 crie um contador =SE(CONT.VALORES(C1:C1000)=0;"";CONT.VALORES(C1:C1000))

 

Use a seguinte macro:

 

Sub Consolidando()
Dim ws As Worksheet

  Columns("A:F").Select
  Application.CutCopyMode = False
  Selection.ClearContents
  Range("A1").Select

  Application.ScreenUpdating = False
   For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "CONSOLIDADO" And ws.[G1] <> "" Then
     ws.Range("A1:F" & ws.Cells(Rows.Count, 1).End(3).Row).Copy
     Sheets("CONSOLIDADO").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlAll
    End If
   Next ws
 Application.ScreenUpdating = True
 
  MsgBox "Processo concluído.", vbInformation, "© Muca Sistemas - 2019"

End Sub