Excel - Makro na presun údajov z riadkov do stĺpcov

Problém

Mám údaje v jednom stĺpci a chcel by som ich transponovať do riadka pre každé tri riadky, napríklad oddeľovač medzier; Stĺpec údajov sa vždy mení v množstve údajov.

 ABCDEFGHIJ atď 

Do

 ABCDEFGHIJ atď 

Riešenie

Predpokladajme, že údaje sú v A2 nadol s A1 so záhlaviami stĺpcov.

Skúste toto makro

  • Výsledky budú uvedené v stĺpcoch C až E

 Sub test () Dim rng Ako rozsah, m ako celé číslo, c ako rozsah stĺpcov ("c: E") Vymazanie m = 3 Nastavte rng = rozsah (rozsah ("a2"), rozsah ("a2"). xlDown)) Nastaviť c = rozsah ("a2") Do Zatiaľ čo c "" 'MsgBox c.Address Range (c, c.Offset (m - 1, 0)) Kopírovanie buniek (Rows.Count, "c"). Koniec (xlUp) .Offset (1, 0) .PasteSpecial Transpose: = True Set c = c.Offset (m, 0) End Loop End 

Ďakujeme Venkat1926 za tento tip.

Predchádzajúci Článok Nasledujúci Článok

Najlepšie Tipy