Combineer meerdere kolommen in één op Excel

Met behulp van deze macro kunt u gegevens uit meerdere rijen en kolommen in een Microsoft Excel- spreadsheet transponeren of converteren naar één enkele kolom.

Rijen en kolommen omzetten in één kolom

Stel dat u de volgende gegevens in een Excel- spreadsheet hebt:

 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

Met onze macro kunt u de bovenstaande gegevens converteren, zodat deze in uw document als volgt wordt gelezen:

 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 

Deze macro is geprogrammeerd met de aanname dat uw gegevens variëren van rij 1 tot rij 8 en kolommen A tot C. Merk op dat u de macro kunt aanpassen aan uw exacte gegevensset.

Merk ook op dat macro- test een operatieve macro is, terwijl ongedaan maken het resultaat van de macro ongedaan maakt.

 Sub test ()
Dim j As Long, k As Long, r As Range, dest As Range
j = Bereik ("A1"). Einde (xlToRight) .Kolom
Voor k = 1 tot j
Set r = Range (Cellen (1, k), Cellen (1, k). End (xlDown))
r.Copy
Stel dest = Cells in (Rows.Count, "A"). End (xlUp) .Offset (3, 0)
dest.PasteSpecial
Volgende k
End Sub
Sub ongedaan maken ()
Dim r As Range
Stel r = Bereik ("a1") in. Einde (xlDown) .Offset (1, 0)
Stel r = Bereik in (r, Cellen (Rows.Count, "A"). Einde (xlUp))
r.EntireRow.Delete
End Sub