Kombinovať viac stĺpcov do jedného na Excel

Použitie tohto makra vám umožní transponovať alebo konvertovať údaje z viacerých riadkov a stĺpcov tabuľky Microsoft Excel do jedného stĺpca.

Prevod riadkov a stĺpcov do jedného stĺpca

Povedzme, že v tabuľke programu Excel máte nasledujúce údaje:

 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í konvertovať vyššie uvedené údaje tak, aby ich vo vašom dokumente čítalo takto:

 480000
520000
300.000
432000
260.000
304000
340.000
304000
600.000
650.000
375.000
540.000
325.000
380.000
425000
380.000
720000
780.000
450.000
648000
390.000
456000
510000
456000 

Toto makro je naprogramované s predpokladom, že vaše údaje sa pohybujú od riadka 1 po riadok 8 a stĺpce A až C. Všimnite si, že makro môžete nastaviť tak, aby zodpovedalo vášmu presnému súboru údajov.

Všimnite si tiež, že makro test je operatívne makro, zatiaľ čo undo vráti späť výsledok makra.

 Subtest ()
Dim j Ako Long, k As Long, r As Range, dest As Range
j = Rozsah ("A1") Koniec (xlToRight)
Pre k = 1 Do j
Nastaviť r = rozsah (bunky (1, k), bunky (1, k) .End (xlDown))
r.Copy
Set dest = Cells (Rows.Count, "A") Koniec (xlUp) .Offset (3, 0)
dest.PasteSpecial
Nasledujúci k
End Sub
Sub undo ()
Dim r Ako rozsah
Nastaviť r = rozsah ("a1") Koniec (xlDown) .Offset (1, 0)
Nastaviť r = rozsah (r, bunky (Rows.Count, "A"). Koniec (xlUp))
r.EntireRow.Delete
End Sub