Excel - makro, lai pārvietotu datus no rindām uz kolonnām

Izdevums

Man ir dati vienā kolonnā, un es gribētu to transponēt rindā par katru trīs rindu ar atstarpi, piemēram, ; Datu kolonna katru reizi mainās datu apjomā.

 ABCDEFGHIJ utt 

Into

 ABCDEFGHIJ utt 

Risinājums

Pieņemsim, ka dati ir norādīti A2 lejā ar A1 ar kolonnu virsrakstiem.

Izmēģiniet šo makro

• Rezultāti būs C līdz E slejā

 Sub tests () Dim diapazons kā diapazons, m Kā Integer, c Kā diapazona kolonnas ("c: E") Dzēst m = 3 Iestatiet rng = Range (diapazons ("a2"), diapazons ("a2"). xlDown)) Iestatīt c = Range ("a2") Do Kam c "" 'MsgBox c.Address Range (c, c.Offset (m - 1, 0)). Kopēt šūnas (rindas.Count, "c"). Beigas (xlUp) .Ofset (1, 0) .PasteSpecial Transpose: = True Set c = c.Offset (m, 0) Loop End Sub 

Paldies Venkat1926 par šo padomu.