Pomoć - EXCEL macro za transponiranje

[flajpan]

Imam adrese u excelu u jednom stupcu, svaka je odvojena sa 2 prazna reda.

Trebao bih znači prebaciti redove u kojima je adresa u stupce.

Primjer:

RED1
RED2
RED3
RED4
Prazan red
Prazan red
RED1
RED2
RED3
RED4
RED5
RED6

A treba mi:
RED1 | RED2 | RED3 | RED4
RED1 | RED2 | RED3 | RED4 | RED5 | RED6

Ako netko može napravit macro, bio bih zahvalan

[D1viry]

Ne treba ti makro za to. Iskoristi mogućnosti pivotiranja.

[flajpan]

Možeš pokazat na primjeru?

[D1viry]

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:

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.

[flajpan]

Redovi adresa nisu fiksni (variraju 3-6) jedino što se ne mijenja je razmak (2 prazna reda).

EDIT: poslao sam ti link na PM. Tnx

[D1viry]

Evo ti rješenje.
Malo dotjeraj i to je to
http://jumbo.iskon.hr/dl/1fqvh11k6j0jv8r2/