Van meerdere regels 1 regel maken

[TV9000]

Ik heb een csv/excelsheet met een productaanbod, echter als een product bijvoorbeeld drie afbeeldingen heeft, maakt hij voor iedere afbeelding een regel aan. Dat is niet wenselijk, ik heb gewoon 1 regel nodig met alle productinfo, dus bij drie afbeeldingen geen drie regels, maar 1 regel met daarin drie kolommen met de drie afbeeldingen in drie verschillende kolommen.

Is het nog te begrijpen?

Ik heb van alles geprobeerd maar krijg het niet voor elkaar.

 

[Elsendoorn2134]

TV9000,

Redelijk simpel, Excel heeft een functie om dubbele gegevens te verwijderen.
- Ga in de tabel staan, waar maakt niet uit.
- Ga in het lint naar Gegevens/ hulpmiddelen voor gegevens / Duplicaten verwijderen.
- Klik op alle "selecties opheffen"
- Vink de kolom "ID" aan (Er van uitgaande dat dit een uniek nummer is).
- Klik op OK en alle dubbele regels worden verwijderd.

Veel Succes.

 

[VenA]

Je vergeet nogal wat te vertellen:
- in het bestand staan geen afbeeldingen. Waarschijnlijk bedoel je dat in kolom I een verwijzing staat naar een afbeelding. Waarom is de kolomkop dan 'large'?
- Waar moet het resultaat komen? Er staan wel een aantal lege kolommen zonder zinvolle naam maar deze zijn niet toereikend. bv Artikel AHM12-M13 heeft 5 afbeeldingen.
- Als je van alles geprobeerd hebt dan kan je toch laten zien wat je zoal gedaan hebt en waar het mis gaat?

Volgens mij kan het alleen met of matrixformules of dmv een macro.

Een macro zou er zo uit kunnen zien.

Sub VenA()
  With Sheets("Blad1").ListObjects(1)
    .Range.Sort .Range.Cells(1, 2), , , , , , , 1
    ar = .DataBodyRange
    .Range.RemoveDuplicates 2
    Set d = CreateObject("Scripting.Dictionary")
    For j = 1 To UBound(ar)
      If ar(j, 9) <> "" Then d.Item(ar(j, 2)) = d.Item(ar(j, 2)) & ar(j, 9) & "|"
    Next j
    .ListColumns.Add
    .DataBodyRange.Columns(.ListColumns.Count).Resize(d.Count) = Application.Transpose(d.items)
  End With
End Sub

Deze laatste kolom kan je dan eenvoudig splitsen dmv tekst naar kolommen.