rijen naar kolommen

[JavaRookie]

Hallo

In het bestand hier bijgevoegd heb ik rijen die omgezet zouden moeten worden naar kolommen.
De eerste vier rijen moeten 1 rij worden, de lege rijen mogen weg dan zijn er 6 rijen die 1 rij moeten vormen,...
Het resultaat zou er zo moeten uitzien:
leerling1;klas: 1A;login lln1;wachtwoord: xxxx
wachtwoord voor leerling 1; straat nr; postcode gemeente;klas: 1A;login: lln1; wachtwoord 1ste co-account: xxxx
...

; is een nieuwe kolom

Alvast bedankt!!

Bekijk bijlage Map1.xlsx

 

[HSV]

Als er standaard drie lege rijen tussen zitten.

Sub hsv()
Dim sq
With Sheets("blad2")
    sq = Split(Join(Application.Transpose(Sheets("Blad1").UsedRange), "|"), "||||")
      .Range("a1").Resize(UBound(sq)) = Application.Transpose(sq)
      .Range("a1").Resize(UBound(sq)).TextToColumns .Range("a1"), 1, _
       1, , , , , , -1, "|", Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
      .Columns.AutoFit
End With
End Sub