Eliminar filas de una hoja de excel

Lo que te muestro es una pequeña porción de la tabla que tengo de una hoja de excel. En la columna B se puede observar un tiempo. Lo que se requiere es eliminar filas. Las filas a eliminar dependen de la columna B, porque solo es necesaria una fila unicamente por minuto, te marco en negritas las filas que deben de quedar las otras filas se requiere sean ocultadas al oprimir un botón por ejemplo y las filas en negritas se recorran o se genere otra hoja.
A B C D E
1 PHV 2:01:06 p.m. 4.204041 1 41209584097
2 PHV 2:01:16 p.m. 4.204041 1 41209584213
3 PHV 2:01:27 p.m. 4.203924 1 41209584340
4 PHV 2:01:37 p.m. 4.204508 1 41209584456
5 PHV 2:01:47 p.m. 4.204859 1 41209584572
6 PHV 2:01:57 p.m. 4.205326 1 41209584688
7 PHV 2:02:07 p.m. 4.204742 1 41209584803
8 PHV 2:02:17 p.m. 4.205326 1 41209584919
9 PHV 2:02:27 p.m. 4.205209 1 41209585035
10 PHV 2:02:37 p.m. 4.205209 1 41209585150
11 PHV 2:02:48 p.m. 4.205442 1 41209585278
12 PHV 2:0 2:58 p.m. 4.205442 1 41209585394
13 PHV 2:03:08 p.m. 4.205559 1 41209585509
14 PHV 2:03:18 p.m. 4.205442 1 41209585625
15 PHV 2:03:28 p.m. 4.205559 1 41209585741
16 PHV 2:03:28 p.m. 4.205559 1 41209585741

1 respuesta

Respuesta
1

Sub minuto()
'por.DAM
xm = Minute(Range("B" & 1))
Cells.EntireRow.Hidden = False
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
If Minute(Cells(i, "B")) = xm Then Rows(i).Hidden = True Else xm = Minute(Cells(i, "B"))
Next
End Sub

La pregunta no admite más respuestas

Más respuestas relacionadas