Jeg har et regneark hvor jeg i kolonne A har nogle emner der optræder mere en én gang. I de andre kolonner har jeg nogle forskellige datoer mm. Jeg vil gerne have regnearket lavet om til at jeg kun har hvert emne optrædende én gang i kolonne A og alle andre variable i de efterfølgende kolonner, dvs. en streng pr. emne.

Tak :-)
Det drejer sig om ca. 3300 rækker og ca. 10 kolonner.
Jeg tænkte også om man måske kunne nummere alle indeks emner 1-3 hvis de optræder 3 gange, 1-2 hvis de optræder 2 gange osv. og derefter sortere på tallene, opdele arket i x antal ark og derefter vha. Indeks funktionen koble dem sammen bagefter? Men jeg ved heller ikke hvordan jeg nummererer dem på den måde (indeks funktionen har jeg styr på)
Håber du kan hjælpe, det ville være fantastisk.

Tanja

OBS koden stopper når den møder en tom celle i kolonne A

Jeg fandt ud af det alligevel og det virkede! Det er da helt fantastisk. Tusind, tusind tak for din hjælp.

Sub Transport()

Range("A1:A3400").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("T1"), Unique:=True
Set rng = Range("T2:T" & Cells(65536, "T").End(xlUp).Row)

For Each c In Range("A2:A3400")
If c = "" Then Exit For
rk = rng.Find(c, LookIn:=xlValues).Row
kol = Cells(rk, 255).End(xlToLeft).Column + 1
Range("B" & c.Row & ":S" & c.Row).Copy Cells(rk, kol)
Next

End Sub

Velbekom