Digni negdje na net svoj primjer i daj mi link na PM, ap ću se pozabavit s time.
EDIT:
Ako imaš fiksan broj redova za svaku adresu (tipa 7) uključujući prazne redove, možeš iskoristiti ovaj makro:
Citiraj:
Sub test()
Dim j As Integer
j = 10
x = WorksheetFunction.CountA(Range("A:A")) / j
For i = 1 To x
Cells(i, 2).Resize(, j) = Application.Transpose(Cells((i - 1) * j + 1, 1).Resize(j))
Next i
End Sub
|
Samo upiši željeni broj redova kao varijablu
j (ovdje je broj 10).
Primjer (sa brojem 10):
Samo ne znam kako se ponaša sa praznim redovima. Poigraj se malo. MOžeš i za
x upisati ukupni broj redova ili iskoristiti drugu funkciju, uglavnom poigraj se malo.