Kombinovat více sloupců do jednoho v aplikaci Excel

Použití tohoto makra vám umožní převést nebo převést data z více řádků a sloupců tabulky Microsoft Excel do jednoho sloupce.

Převést řádky a sloupce do jednoho sloupce

Řekněme, že v tabulce aplikace Excel máte následující data:

 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

Naše makro vám umožní převádět výše uvedená data tak, aby se v dokumentu zobrazovala takto:

 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 

Toto makro je naprogramováno s předpokladem, že se vaše data pohybují od řádku 1 po řádek 8 a sloupce A až C. Všimněte si, že makro můžete ladit tak, aby odpovídalo vaší přesné sadě dat.

Všimněte si také, že test makra je operativní makro, zatímco zpět vrátí zpět výsledek makra.

 Subtest ()
Dim j Jako Long, k As Long, r Jako Range, dest As Range
j = Rozsah ("A1") Konec (xlToRight)
Pro k = 1 až j
Nastavit r = rozsah (buňky (1, k), buňky (1, k) .End (xlDown))
r.Copy
Set dest = Cells (Rows.Count, "A") Konec (xlUp) .Offset (3, 0)
dest.PasteSpecial
Další k
End Sub
Sub undo ()
Dim r jako rozsah
Nastavit r = rozsah ("a1") Konec (xlDown) .Offset (1, 0)
Nastavit r = rozsah (r, buňky (Rows.Count, "A"). Konec (xlUp))
r.EntireRow.Delete
End Sub