V novom Office to urobíte ľahko aj vzorcom:
=INDEX(B2:B55;TRANSPOSE(SEQUENCE(9;6)))
=INDEX(B2:B55;TRANSPOZICE(SEQUENCE(9;6)))
Makro napríklad:
Sub Rozdel()
Dim D(), V(), r As Long, s As Long, i As Long
With Worksheets("Data")
D = .Range("B2:B55").Value2
ReDim V(1 To 6, 1 To WorksheetFunction.RoundUp(UBound(D, 1) / 6, 0))
s = 1
For i = 1 To UBound(D, 1)
r = r + 1
If r = 7 Then s = s + 1: r = 1
V(r, s) = D(i, 1)
Next i
.Range("H2").Resize(6, UBound(V, 2)).Value2 = V
End With
End Subcitovat
=INDEX(B2:B55;TRANSPOSE(SEQUENCE(9;6)))
=INDEX(B2:B55;TRANSPOZICE(SEQUENCE(9;6)))
Makro napríklad:
Sub Rozdel()
Dim D(), V(), r As Long, s As Long, i As Long
With Worksheets("Data")
D = .Range("B2:B55").Value2
ReDim V(1 To 6, 1 To WorksheetFunction.RoundUp(UBound(D, 1) / 6, 0))
s = 1
For i = 1 To UBound(D, 1)
r = r + 1
If r = 7 Then s = s + 1: r = 1
V(r, s) = D(i, 1)
Next i
.Range("H2").Resize(6, UBound(V, 2)).Value2 = V
End With
End Subcitovat