Transponieren von einer Tabelle

[Jacob01]

Hallo,
ich benötige Unterstützung für ein kleines Problem (für mich ein etwas Größeres).

Ich habe eine Tabelle mit ca. 300 Tsd. Einträgen mit zwei Spalten. In Spalte A steht der Ortsname und in Spalte B die Namen der Eheleuten. Diese möchte ich gerne transponieren, so dass der Ortsname und die Eheleute in einer Zeile stehen. Also: Ortsname; Name Mann; Name Frau; Geburtsname Frau;
Die Reihenfolge der Namen ist egal.
 
Zu 99% steht 3 x der Ortsname pro Ehepaar (Spalte A). Manchmal 4 x der Ortsname, wenn ein Ehepartner schon einmal verheiratet war. Siehe Beispiel Anhang.

Vielen Dank im Voraus

Jacob.

[Fennek]

Hallo,

für diesen Data-Set:

Code:

Sub Main

for i = 2 to 24
    
    if cells(i,"A") <> cells(i-1, "A") then
        r=r+1
        cells(r,"E") = cells(i,"A")
        cells(r,"F") = cells(i,"B")
        o=0
    else
        cells(r,"F").offset(,o+1) = cells(i,"B")
        o=o+1
    endif
next i
End Sub

mfg

[Jacob01]

Besten Dank Fennek.