Apvienojiet vairākas kolonnas vienā programmā Excel

Šī makro izmantošana ļaus jums pārnest vai pārvērst datus no vairākām rindām un kolonnām Microsoft Excel izklājlapā vienā kolonnā.

Pārvērst rindas un kolonnas vienā kolonnā

Pieņemsim, ka Excel izklājlapā ir šādi dati:

 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

Mūsu makro ļaus jums pārvērst iepriekš minētos datus tā, lai tas jūsu dokumentā būtu šāds:

 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 

Šis makro ir ieprogrammēts ar pieņēmumu, ka jūsu dati svārstās no 1. rindas līdz 8. rindai un ailēm A līdz C. Ņemiet vērā, ka makro var izmainīt, lai tas atbilstu jūsu precīzajam datu kopumam.

Ņemiet vērā arī to, ka makro tests ir operatīvs makro, bet atsaukšana atcels makro rezultātu.

 Sub tests ()
Dim j As Long, k Kā Long, r Kā Range, dest As Range
j = diapazons ("A1"). Beigums (xlToRight)
Par k = 1 līdz j
Iestatīt r = diapazons (šūnas (1, k), šūnas (1, k) .End (xlDown))
r.Copy
Iestatīt dest = šūnas (rindas.Skaitlis, "A"). Beigas (xlUp) .Ofset (3, 0)
dest.PasteSpecial
Nākamais k
Beigt Sub
Apstāšanās ()
Dim r kā diapazons
Iestatiet r = Range ("a1"). Beigas (xlDown) .Offset (1, 0)
Iestatiet r = diapazons (r, šūnas (rindas.Skaitlis, "A"). Beigas (xlUp))
r.EntireRow.Delete
Beigt Sub