Colunas do Excel de várias planilhas

Question

Por isso, tenho tentado copiar vários dados de várias planilhas para uma única folha, como selecionar todas as colunas de várias planilhas e colocá-las em outra planilha?

    

Answer 1

Abaixo do código VBA escrito, ajude você a copiar os dados de todas as planilhas da pasta de trabalho ativa de uma só vez para uma nova planilha. Mas lembre-se que este código funcionará corretamente quando todas as planilhas tiverem a mesma estrutura de dados, o mesmo número de colunas e linhas no mesmo.

    Sub CommandButton1_click()

    Dim J As Integer
    On Error Resume Next

    Sheets(1).Select

    Worksheets.Add

    Sheets(1).Name = "Combined Sheet"
    Sheets(2).Activate

    Range("A1").EntireRow.Select

    Selection.Copy Destination:=Sheets(1).Range("A1")

   For J = 2 To Sheets.Count
     Sheets(J).Activate
    Range("A1").Select

   Selection.CurrentRegion.Select
     Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
      Selection.Copy Destination:=Sheets(1).Range("A2000").End(xlUp)(2)
   Next

   End Sub

NB: No código VBA acima escolhido da célula A1, isso significa que, em cada intervalo de dados da Planilha, começa em A1. Mas você pode SUBSTITUIR o início da célula (A1) com outra célula, conforme sua necessidade.

Espero que isso ajude você.