Avatar billede nuller111 Nybegynder
09. marts 2016 - 11:33 Der er 3 kommentarer og
1 løsning

Vis kun sidste linje for hver dato

Har et ark med data for mange datoer, for hver dato er der flere rækker.

Har behov for kun at få vist sidste række for hver dato hvordan gør man nemmest dette.

Data

Dato            Start          Slut
29-09-2014    29-09-14 17:53    29-09-14 17:53
29-09-2014    29-09-14 17:54    29-09-14 18:09
30-09-2014    30-09-14 08:39    30-09-14 11:02
30-09-2014                30-09-14 17:55
30-09-2014    30-09-14 11:18    30-09-14 12:39
30-09-2014    30-09-14 12:07    30-09-14 12:17
30-09-2014    30-09-14 12:39    30-09-14 16:15
30-09-2014    30-09-14 16:33    30-09-14 17:50
01-10-2014    01-10-14 09:14    01-10-14 17:36
01-10-2014    01-10-14 10:31    01-10-14 17:30
01-10-2014    01-10-14 17:36    01-10-14 18:42

Vil gerne kun have vist følgende
29-09-2014    29-09-14 17:54    29-09-14 18:09
30-09-2014    30-09-14 16:33    30-09-14 17:50
01-10-2014    01-10-14 17:36    01-10-14 18:42
Avatar billede jens48 Ekspert
09. marts 2016 - 12:15 #1
Prøv med denne makro. Betingelsen er at datoerne står kronologisk:

Sub Skjul()
LastRowColA = Range("A65536").End(xlUp).Row
For x = LastRowColA To 2 Step -1
If y = Cells(x, 1) Then
Rows(x).EntireRow.Hidden = True
Else
Rows(x).EntireRow.Hidden = False
y = Cells(x, 1)
End If
Next
End Sub
Avatar billede xl-Enthusiast Ekspert
09. marts 2016 - 12:36 #2
Hvis du foretrækker en formelløsning kan du (med dine data i A1:C12) bruge følgende:

I A15: =INDEKS($A$2:$A$12; SAMMENLIGN(0;TÆL.HVIS($A$14:A14; $A$2:$A$12); 0))

I B15: =SLÅ.OP(2;1/($A$2:$A$12=A15);$B$2:$B$12)
I C15: =SLÅ.OP(2;1/($A$2:$A$12=A15);$C$2:$C$12)

Formlen i A15 er en matrixformel, øvrige er almindelig (ikke matrix-)formler.

Kopier nedad i nødvendigt omfang.
Når antallet af datoer er udtømt vil formlerne returnere #I/T. Dette kan selvfølgelig undertrykkes på forskellig måde.
Avatar billede nuller111 Nybegynder
10. marts 2016 - 13:57 #3
Tak for forslag, har benyttet det først indkomne fra Jens48, så du må gerne oprette svar.

Kan makro'en forfines, så data også vil kunne kopieres til et andet ark, uden at man får de skjulte med?
Avatar billede jens48 Ekspert
10. marts 2016 - 14:22 #4
Det kunne for eksempel gøres med denne makro. Jeg har ikke medtaget sletning af gamle data i makroen:

Sub Skjul()
LastRowColA = Range("A65536").End(xlUp).Row
For x = LastRowColA To 2 Step -1
If y = Cells(x, 1) Then
Rows(x).EntireRow.Hidden = True
Else
Rows(x).EntireRow.Hidden = False
Rows(x).EntireRow.Select
Selection.Copy
Sheets("Sheet2").Rows(2).EntireRow.Insert
y = Cells(x, 1)
End If
Next
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester