Rijen verticaal verplaatsen op basis van duplicaten in eerste kolom

[Dreday]

Hallo allemaal,

Ik heb een Excel lijstje met fictieve bedrijfsnamen en contactgegevens. Er zijn 4 kolommen in mijn voorbeeld.
Kolom A: Bedrijfsnaam
Kolom B: Email
Kolom C: Naam
Kolom D: Link

Nu komt het voor dat sommige bedrijven meerdere keren voorkomen in mijn lijst (onder elkaar). Als een bedrijf meer dan 1 keer voorkomt in Kolom A, dan moet ik de 2e, 3e keer van de bedrijfsnaam-rijen zo verplaatsen dat ze achter de eerste rij komen waar dat bedrijfsnaam staat. Dus de 2e keer dat een eenzelfde bedrijfsnaam voorkomt, moet de 2e Bedrijfsnaam naar kolom E, 2e email naar kolom F, 2e Naam naar kolom G en 2e Link naar kolom H. Let wel op dat alleen de waardes in Kolom A dubbel kunnen zijn(bedrijfsnaam).

Hoe kan ik het beste de rijen met een dubbele waarde in de eerste kolom naar (eventueel lege) kolommen verplaatsten zonder handmatig te kopiëren en plakken of handmatig te transponeren?

Ik heb te weinig(geen) kennis van Power Query, Access of vba's en ben er met ChatGPT nog niet uitgekomen.

Super verwarrend om te lezen, sorry hiervoor! Ik heb een voorbeeld bestandje erbij gedaan, hoop dat het dan iets duidelijker wordt.

Het voorbeeld heeft twee bladen: "Beginpunt" en "Gewenst eindresultaat". Hoe zou je dit aanpakken en is hier een makkelijke manier voor wat ik zou kunnen toepassen op lijsten met honderden rijen?
Ik heb dit tot nu toe handmatig zitten knippen en plakken

 

[edmoor]

Is er een reden waarom je de bedrijfsnaam ook iedere keer meeneemt?

 

[JEC.]

Plak deze in de advanced editor van Power Query.

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    grp = Table.Group(Source, {"Bedrijfsnaam"}, {{"Count", each Table.PromoteHeaders(Table.Transpose(Table.UnpivotOtherColumns(_, {}, "Attribute", "Value")))}}),
    out= Table.Combine(grp[Count])
in
    out

 

[JEC.]

Hier anders ook nog een formule optie voor in mijn bestand

=LET(tbl;Table1;x;INDEX(tbl;;1);u;UNIQUE(x);IFERROR(DROP(REDUCE("";u;LAMBDA(a;b;VSTACK(a;TOROW(FILTER(tbl;x=b)))));1);""))

 

[Dreday]

Is er een reden waarom je de bedrijfsnaam ook iedere keer meeneemt?

Nee, de bedrijfsnaam hoeft eigenlijk niet iedere keer meegenomen te worden. Excuus!

 

[Dreday]

Plak deze in de advanced editor van Power Query.

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    grp = Table.Group(Source, {"Bedrijfsnaam"}, {{"Count", each Table.PromoteHeaders(Table.Transpose(Table.UnpivotOtherColumns(_, {}, "Attribute", "Value")))}}),
    out= Table.Combine(grp[Count])
in
    out

Bedankt voor je reactie! Ik ga het vandaag uitproberen en laat dan gelijk weten of het lukt.

 

[Dreday]

Hier anders ook nog een formule optie voor in mijn bestand

=LET(tbl;Table1;x;INDEX(tbl;;1);u;UNIQUE(x);IFERROR(DROP(REDUCE("";u;LAMBDA(a;b;VSTACK(a;TOROW(FILTER(tbl;x=b)))));1);""))

Thank you, ik ga ermee aan de slag vanmiddag!

 

[JEC.]

In beide oplossingen komt het bedrijf steeds terug

 

[HSV]

=ALS.FOUT(LET(x;UNIEK(Tabel2[Bedrijfsnaam]);HOR.STAPELEN(x;WEGLATEN(REDUCE("";x;LAMBDA(y;z;VERT.STAPELEN(y;NAAR.RIJ(FILTER(Tabel2[[email]:[Link]];z=Tabel2[Bedrijfsnaam])))));1)));"")

 

[Dreday]

In beide oplossingen komt het bedrijf steeds terug

Held! De power query die je hebt gemaakt doet precies waar ik naar zocht. Dankjewel JEC:d

 

[Dreday]

=ALS.FOUT(LET(x;UNIEK(Tabel2[Bedrijfsnaam]);HOR.STAPELEN(x;WEGLATEN(REDUCE("";x;LAMBDA(y;z;VERT.STAPELEN(y;NAAR.RIJ(FILTER(Tabel2[[email]:[Link]];z=Tabel2[Bedrijfsnaam])))));1)));"")

Bedankt voor je hulp, deze code ga ik ook nog eens uittesten!

 

[HSV]

Raadzaam is om eerst te testen i.p.v. reageren.