CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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

Synes godt om

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.

Synes godt om

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?

Synes godt om

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

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS