Excel - Un macro pentru a muta datele de la rânduri la coloane

Problema

Am date într-o singură coloană și aș vrea să o transpun într-un rând pentru fiecare trei rânduri cu un delimitator de spațiu, de exemplu; Coloana datelor variază de fiecare dată în ceea ce privește cantitatea de date.

 ABCDEFGHIJ etc 

În

 ABCDEFGHIJ etc 

Soluţie

Să presupunem că datele sunt în A2 în jos cu A1 având titlurile coloanelor.

Încercați această macrocomandă

• Rezultatele vor fi în coloanele C până la E

 Substrat () Dimmer ca Interval, m Ca Integer, c Ca Coloane de Interval ("c: E") Șterge m = 3 Setați rng = Intervalul ("a2" Setare c = Interval ("a2") Do În timp ce c "" 'MsgBox c.Address Range (c, c.Offset (m - 1, 0)) Copiați celulele (Rows.Count, "c"). Sfârșit (xlUp) .Offset (1, 0) .PasteSpecial Transpose: = Set adevărat c = c.Offset (m, 0) 

Mulțumită lui Venkat1926 pentru acest sfat.