Excel - makro za prenos podatkov iz vrstic v stolpce

Težava

Podatki so zdaj v spodnji obliki

 1 2 3
9 15 16 20 25
1 

To mora priti v tej obliki

 1
2
3
9
15
16
20
25
1 

Rešitev

Predpostavke:

• 1. Podatki se začnejo iz vrstice 1 in se vedno kopirajo v stolpec A
• 2. Vrstice lahko vstavite brez izkrivljanja podatkov

 Sub TransposeSpecial ()
Dim lMaxRows As Long 'največ vrstic v listu
Vrstica »Dim lThisRow As Long« se obdeluje
Dim iMaxCol As Integer 'uporabljen stolpec v vrstici, ki se obdeluje
lMaxRows = Celice (Rows.Count, "A"). End (xlUp).
lThisRow = 1 'se začne iz 1. vrstice
Naredite Čeprav lThisRow <lMaxRows
iMaxCol = Celice (lThisRow, Columns.Count) .End (xlToLeft) .Column
Če (iMaxCol> 1) Nato
Vrstice (lThisRow + 1 & ":" & lThisRow + iMaxCol - 1).
Razpon (celice (lThisRow, 2), celice (lThisRow, iMaxCol)).
Razpon (»A« & lThisRow + 1) .Izberite
Selection.PasteSpecial Paste: = xlPasteAll, Operacija: = xlNone, SkipBlanks: = False, Transpose: = True
Razpon (celice (lThisRow, 2), celice (lThisRow, iMaxCol)).
lThisRow = lThisRow + iMaxCol - 1
lMaxRows = Celice (Rows.Count, "A"). End (xlUp).
End If
lThisRow = lThisRow + 1
Loop
End Sub 

Upoštevajte, da

Hvala za rizvisa1 za ta nasvet na forumu.