Sujunkite kelis stulpelius į vieną „Excel“

Naudojant šią makrokomandą galėsite perkelti arba konvertuoti duomenis iš kelių eilučių ir stulpelių „ Microsoft Excel“ skaičiuoklėje į vieną stulpelį.

Konvertuoti eilutes ir stulpelius į vieną stulpelį

Tarkime, kad „ Excel“ skaičiuoklėje turite šiuos duomenis:

 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ūsų makrokomandas leis jums konvertuoti aukščiau nurodytus duomenis taip, kad jis būtų panašus į jūsų 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 000
390 000
456 000
510 000
456 000 

Ši makrokomanda užprogramuota su prielaida, kad jūsų duomenys svyruoja nuo 1 eilutės iki 8 eilutės ir A – C stulpelių. Atkreipkite dėmesį, kad makrokomandą galite sureguliuoti, kad atitiktų jūsų tikslius duomenų rinkinius.

Taip pat atkreipkite dėmesį, kad makro testas yra operatyvi makro, o atšaukimas panaikins makro rezultatą.

 Sub bandymas ()
Dim j As Long, k Kaip Long, r Kaip Range, dest As Range
j = intervalas („A1“). Pabaiga (xlToRight)
K = 1 į j
Nustatyti r = diapazonas (ląstelės (1, k), ląstelės (1, k) .End (xlDown))
r.Copy
Nustatyti dest = ląsteles (eilutes.Skaičiuoti, "A"). Pabaiga (xlUp) .Offset (3, 0)
dest.PasteSpecial
Kitas k
Pabaiga
Pakartotinis atšaukimas ()
Dim r as Range
Nustatyti r = intervalas ("a1"). Pabaiga (xlDown) .Offset (1, 0)
Nustatyti r = intervalas (r, ląstelės (eilutės.Skaičiuoti, "A"). Pabaiga (xlUp))
r.EntireRow.Delete
Pabaiga