Makro koji je Ivek dao radi tačno to što si tražio u prvom postu.
Makro koji bi radio inverzno - od vertikalnog oblika tabele da dobiješ horizontalni:
Code:
Sub SplitByRows()
' Prebacuje postojecu tabelu m x n
' U novu tabelu row x ( n x m/row)
' Startuje se kad je aktivna celija unutar postojece tabele
Dim i As Integer
Dim row As Integer
' Uslov za secenje postojece tabele (step za petlju - row)
row = InputBox("How many rows per group?")
' Premestanje blok po blok u petlji
For i = 1 + row To ActiveSheet.UsedRange.Rows.Count Step row
' Pomocu Intersect se formira opseg za premestanje
' Odrediste je prvi red, poslednja popunjena kolona + 1
Intersect(ActiveSheet.UsedRange, Rows(i).Resize(row)).Cut _
Cells(1, 1).End(xlToRight)(1, 2)
Next i
End Sub
U prilogu na listu test možeš da se igraš -
SplitByColumn dobiješ od horizontalnog vertikalni oblik pa onda
SplitByRow dobiješ od vertiklanog (početni) horizontalni oblik itd
Nije to loše Rembrante, samo što ne bi dodao još malo boje?