No Excel, como posso transpor várias linhas em uma única coluna?

Question

Tenho linhas de dados de comprimento igual, por exemplo, A1:A5, B1:B5, C1:C5, etc. Quero colocá-los em uma única coluna, por exemplo, D1:D5, D6:D10, D11:D15, etc. Não há cabeçalhos ou identificadores de linha. Acho que usar INDIRETO com uma combinação de valores ROW e COLUMN deve funcionar, mas não consigo encontrar a combinação certa.

Answer 1

Com dados emA1atravésC5, emD1digitar:

=OFFSET($A$1,ROUNDUP(ROWS($1:1)/3,0)-1,MOD(ROWS($1:1)-1,3))

e copie. Isso vaitransporos dados em uma única coluna:

É igualmente fácil colocar os dados em uma única coluna sem transposição.

Answer 2

Isso ignorará os cabeçalhos das colunas e não excluirá os dados das células originais. Dependendo da sua planilha, pode ser necessário alterar os valores das colunas.

Sub Macro1()

  Const firstRowWithData = 2 ' assumes labels in row 1
  Dim anyWS As Worksheet
  Dim copyRange As Range
  Dim CP As Integer

  For Each anyWS In ThisWorkbook.Worksheets
    For CP = Range("B1").Column To Range("D1").Column
      Set copyRange = anyWS.Range(anyWS.Cells(2, CP).Address & ":" & _
       anyWS.Cells(Rows.Count, CP).End(xlUp).Address)
      copyRange.Copy anyWS.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Next
  Next

End Sub

antes

A Header    B Header    C Header
a           b           c
a           b           c
a           b           c

depois

A Header    B Header    C Header
a           b           c
a           b           c
a           b           c
b       
b       
b       
c       
c       
c       

Em seguida, exclua manualmente as colunas originais.