Combine várias colunas em uma no Excel

O uso dessa macro permitirá transpor ou converter dados de várias linhas e colunas em uma planilha do Microsoft Excel em uma única coluna.

Converter linhas e colunas em coluna única

Digamos que você tenha os seguintes dados em uma planilha do Excel :

 480.000 600.000 720.000
520.000 650.000 780.000
300.000 375.000 450.000
432.000 540.000 648.000
260.000 325.000 390.000
304.000 380.000 456.000
340.000 425.000 510.000
304.000 380.000 456.000

Nossa macro permitirá que você converta os dados acima para que ele seja lido assim em seu documento:

 480.000
520.000
300.000
432.000
260.000
304.000
340.000
304.000
600.000
650.000
375.000
540.000
325.000
380.000
425.000
380.000
720.000
780.000
450.000
648.000
390.000
456.000
510.000
456.000 

Essa macro é programada com uma suposição de que seus dados vão da linha 1 à linha 8 e das colunas A a C. Observe que você pode ajustar a macro para corresponder ao seu conjunto de dados exato.

Observe também que o teste de macro é uma macro operacional, enquanto o desfazer desfará o resultado da macro.

 Subteste ()
Dim j Como Long, k As Long, r Como Range, dest As Range
j = Range ("A1"). End (xlToRight) .Column
Para k = 1 para j
Defina r = Range (Células (1, k), Células (1, k) .End (xlDown))
r.copy
Set dest = Cells (Rows.Count, "A"). End (xlUp) .Offset (3, 0)
dest.PasteSpecial
Próxima k
End Sub
Sub-desfazer ()
Dim r As Range
Defina r = Range ("a1"). End (xlDown) .Offset (1, 0)
Defina r = Range (r, Células (Rows.Count, "A"). End (xlUp))
r.EntireRow.Delete
End Sub