Hej. Jeg vil sammenkøre oplysninger fra 2 ark i et tredje, og reducere antal linjer hvor der er dobbeltforekomster, se i vedhæftede, kan ikke rigtigt finde den gode løsning!'uploads/392/Test.xlsx

Det er desværre ikke optimalt, måske en misforståelse, jeg har vist ikke gjort det præcist nok. Se bort fra ark1 det er blot en oversigt over det er skal ske.
De data der er liste i ark v1 og ark f1 skal sammenstilles i ark vf1, samtidig med de liste kronologisk oppe fra og ned efter klokkeslæt. Oven i det hele skal de data der er to ens linier af i enten v1 eller f1 viser på en l linie med et 2 i antal.
Kan det overhovedet laves uden en macro ?
//hejstrup

Indsæt følgende kode i et alm. modul:

Sub KopierUnikke()
Sheets("vf1").Select ' Arket hvor resultat skal ende
Dim rng_v1 As Range
Dim rng_f1 As Range
Dim coll As New Collection
Set rng_v1 = Sheets("v1").Range("A2:A6")
Set rng_f1 = Sheets("f1").Range("A2:A6")

On Error Resume Next
For Each c In rng_v1 ' opret unik liste på tider
coll.Add c.Value, CStr(c.Value)
Next
For Each c In rng_f1
coll.Add c.Value, CStr(c.Value)
Next
On Error GoTo 0

For Each c In coll ' skriv liste i ark kolonne A
t = t + 1
Cells(t + 1, "A") = Format(c, "hh:mm")
Next
' sorter liste
Range("A2:A8").Sort key1:=Range("A2"), Order1:=xlAscending

Set rng_v1 = Nothing
Set rng_f1 = Nothing
Set coll = Nothing
End Sub

Hej excelent. Jeg går ud fra det er enten den ene eller anden af dine to løsninger ?
Eller skal der både laves macro og formler ?
Jeg får det afprøvet, du skal nok få svar.
//hejstrup

Takker, er næsten i mål, jeg kører både Excell 2007 og Excel Office 365.