Új hozzászólás Aktív témák
-
T_bee
aktív tag
válasz mariann71 #2456 üzenetére
Szia,
Nézd meg ezt a kódot, szerintem azt csinálja, ami neked kell:
Sub transzponal()
Dim inp, res As Variant
Dim r As Range
Dim n As Integer
inp = Range(Cells(1, 1), Cells(22, 1)) 'itt olvassa be a program az induló adatokat
n = Int(UBound(inp) / 5) 'itt nézi meg, hogy hány sor lesz az új tömb
If UBound(inp) Mod 5 <> 0 Then n = n + 1
ReDim res(1 To n, 1 To 5)
For i = 1 To n
For j = 1 To 5
If (i - 1) * 5 + j > UBound(inp) Then Exit For
res(i, j) = inp((i - 1) * 5 + j, 1)
Next j
Next i
Set r = Range(Cells(1, 2), Cells(n, 6)) 'itt lehet megadni hogy hova outputolja az eredményt
r = res
End SubÜdv
T_bee
''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/