300x rij naar kolom verplaatsen 'massa transponeren'

[Bach]

Ik heb een bestand met 3000 adressen in Excel. Dat zo is opgemaakt:

Slagerij van Kampen
Genetstraat 1
4536 BG Kampen
T 045-3576287
Bakkerij De Wit
Kerkstraat 67a
4527 AB Zwolle
T 078-2687521
Poelier Janssen
Lange Baan 76
6754 AA Groningen
T 038-2735182

maar ik wil het als:

Slagerij van Kampen Genetstraat 1 4536 BG Kampen T 045-3576287
Bakkerij De Wit Kerkstraat 67a 4527 AB Zwolle T 078-2687521
Poelier Janssen Lange Baan 76 6754 AA Groningen T 038-2735182

Via CTRLC/V Plakken Speciaal/Transponeren kan ik dat per blok. Het zijn echter 3000adressen. Kan dat in 1x, via een macro oid (waar ik geen kaas van heb gegeten)?

Dank voor ieders hulp,


Bach

 

[trucker10]

Mits een 4 tal formulletjes in te vullen en daarna door te kopieren naar onderen moet dit te doen zijn .
bekijk het voorbeeldje . ik ben wel vertrokkenin cel A1

ooit heb ik al een vba ( macro ) oplossing zien langskomen .

 

[Cobbe]

Zoals deze bv.

Sub transponeren()
For adres = 1 To Range("A65500").End(xlUp).Row Step 4
    Range("A" & adres & ":A" & adres + 3).Copy
    Range("E" & Range("E65500").End(xlUp).Row + 1).PasteSpecial Paste:=xlAll, Transpose:=True
Next
End Sub

Ook begonnen in A1 en er van uitgaande dat er telkens 4 lijnen per adres beschikbaar zijn.

Succes, Cobbe

 

[Bach]

Veel dank @trucker30.

Je oplossing werkt uitstekend en gemakkelijk!