Kombiner flere kolonner i en på Excel

Brugen af ​​denne makro gør det muligt for dig at transponere eller konvertere data fra flere rækker og kolonner på et Microsoft Excel- regneark til en enkelt kolonne.

Konverter rækker og kolonner til enkelt kolonne

Lad os sige, at du har følgende data i et Excel- regneark:

 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

Vores makro giver dig mulighed for at konvertere ovenstående data, så den læser sådan her på dit dokument:

 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 tusind
390.000
456 tusind
510.000
456 tusind 

Denne makro er programmeret med en antagelse om, at dine data spænder fra række 1 til række 8 og kolonnerne A til C. Bemærk, at du kan tilpasse makroen til at matche dit eksakte datasæt.

Bemærk også, at makrotest er en operativ makro, mens fortryd vil fortryde makroens resultat.

 Subtest ()
Dim j Så længe, ​​k Så lang, r Som rækkevidde, dest As Range
j = Område ("A1"). Slut (xlToRight) .Søjle
For k = 1 til j
Sæt r = Range (Celler (1, k), Celler (1, k) .End (xlDown))
r.Copy
Indstil dest = Celler (Rows.Count, "A"). Slut (xlUp) .Offset (3, 0)
dest.PasteSpecial
Næste k
Slutdel
Sub undo ()
Dim som område
Indstil r = Range ("a1"). Slut (xlDown) .Offset (1, 0)
Indstil r = Range (r, Celler (Rows.Count, "A"). Slut (xlUp))
r.EntireRow.Delete
Slutdel