Horizontaal transponeren

[HelpErik]

Goedemiddag,

Ik heb een Excel-bestand met veel met veel gegeven in kolom A. Het betreffen bedrijfsgegevens (website, adres, nummer mail)
Al deze gegevens staan onder elkaar in kolom A, echter zou ik deze gegevens per bedrijf graag horizontaal willen hebben. Niet alle bedrijfsgegeven in kolom omvatten hetzelfde aantal rijen, sommige bedrijven hebben bijvoorbeeld geen nummer of website.

Voorbeeld:
Test 1
Test 2
Test 3
Test 4
Test 1
Test 2
Test 3
Test 1
Test 2

Ik zou graag alle test1 in kolom a willen laten beginnen.

Hoe kan ik op een makkelijke manier mijn gegevens van kolom a omzetten naar horizontale gegevens?

Met vriendelijke groet,
Erik

 

[AlexCEL]

Excel 365:

=TRANSPONEREN(FILTER(A1:A9;A1:A9="Test 1";""))

Een excelvoorbeeldje toevoegen met daarin wat je hebt en wat je wilt bereiken is anders gewenst.

 

[HelpErik]

Bedankt voor je bericht.

In heb een voorbeeldbestand toegevoegd. Graag zou ik de gegevens per bedrijf horizontaal willen geven.
Wanneer ik de gegevens uit kolom a horizontaal transponeer komen alle gegevens in dezelfde rij te staan.
Bestaat er mogelijkheid of formule om bijvoorbeeld elke witte cel op een nieuwe rij te laten beginnen?

 

[AlexCEL]

Nog 2 vragen:
- Wat is de gewenste uitkomst?
- Welke Excelversie gebruik je?

 

[HelpErik]

Ik gebruik Excel 2016.
Ik heb het gewenste resultaat toegevoegd. Voor deze 4 voorbeelden is het handmatig te doen, maar in het echte bestand betreft kolom 26.000 rijen

 

[VenA]

Met een macro al is het niet handig omdat je nu verschillende gegevens in de kolommen krijgt en je er eigenlijk niets aan hebt.

Sub VenA1()
  ar = Sheets("Blad1").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
  Set d = CreateObject("Scripting.Dictionary")
  For j = 1 To UBound(ar)
    Dim a(9)
    If ar(j, 1) <> "" Then
      a(t) = ar(j, 1)
      t = t + 1
     Else
      d(d.Count) = a
       t = 0
   End If
  Next j
  Sheets("Blad1").Cells(1, 4).Resize(d.Count, 10) = Application.Index(d.items, 0, 0)
End Sub