
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.
Responder1
Responder2
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.