Makro w excelu

[SamVimes84 0]

Mam problem i może ktoś będzie mi w stanie pomóc.

Mam w excelu kolumnę kilku tysięcy liczb. Chciałbym je podzielić na 50-cio znakowe kolumny i ułożyć obok siebie. Z kolumny A do B, potem C, D i E, a potem od nowa z przerwą np. 5 wierszy (to będzie drukowane i przerwa byłaby fajna aby się to nie zlewało ze sobą).

 

Nagrałem makro które wygląda tak:

 

' Makro2 Makro

'

 

'

    Range("A51:A100").Select

    Selection.Cut Destination:=Range("B51:B100")

    Range("B51:B100").Select

End Sub

 

Proste ale chyba oddaje ideę. Wiem, że trzeba by tu wstawić ze 2 pętle, żeby zmieniały się nr wierszy i oznaczenia kolumn.

Nie znam VB, a innego sposobu w excelu nie znam na podział tej kolumny na mniejsze fragmenty.

 

Z góry dzięki za pomoc.

[misiutychy 4]

Zobacz takie coś:

Sub Kopiuj_do_kolumn()
Dim row As Long
Dim col As Integer
row = 51
col = 2
Dim dzielnik As Integer
dzielnik = 50
Do While IsEmpty( Cells(row, 1).Value ) = FALSE
	col = Int(( row  - 1) / dzielnik ) + 1
	Cells( ( (row - 1) MOD dzielnik ) + 1, col ).Value = Cells( row, 1).Value
	row = row + 1
Loop
Range(Cells(51, 1), Cells(row, 1) ).ClearContents
End Sub

Dopóki nie masz pustych wierszy między liczbami to powinno działać

[SamVimes84 0]

Działa, serdecznie dziękuję. Trochę zmodyfikowałem, bo 60 wierszy też daje radę, ale ogólnie to jest git.