Duplicidade de dados - Excel

[ella_al]

Olá,

Tenho uma planilha onde estão inseridos vários horários e intervalos de tempo. Como alguns são repetidos, gostaria de eliminá-los, detalhe: Preciso manter o 1º horário/intervalo e o último, eliminando o restante:

14:16 0:12 1º horário/intervalo

14:28 0:12

14:40 0:12

14:52 0:12

15:04 0:12

15:16 0:12

15:28 0:12

15:40 0:12

15:52 0:12

16:04 0:12 último

16:15 0:11 1º horário/intervalo

16:26 0:11

16:37 0:11

16:48 0:11

16:59 0:11

17:10 0:11 último

17:20 0:10 1º horário/intervalo

17:30 0:10

17:40 0:10 último

17:46 0:06 1º horário/intervalo

17:52 0:06

17:58 0:06

18:04 0:06

18:10 0:06

18:16 0:06

18:22 0:06

18:28 0:06 último

Alguém conhece uma macro no excel que ajude em tal função???

[ella_al]

Bom, depois de muito quebrar a cabeça, e com a ajuda de amigos, cheguei a um código que resolveu o meu problema:

Sub Intervalo()

Dim x As Integer

x = 5

While Range("I" & x).Value <> ""

If Range("K" & x).Text <> "" And Range("K" & x + 1).Text <> "" And Range("K" & x + 2).Text <> "" Then

While ((Range("K" & x).Text = Range("K" & x + 1).Text) And (Range("K" & x + 1).Text = Range("K" & x + 2).Text))

x = x + 1

Range(x & ":" & x).Select

Selection.Delete Shift:=xlUp

x = x - 1

Wend

End If

If Range("K" & x).Text = Range("K" & x + 1).Text And Range("K" & x).Text <> "" And Range("K" & x + 1).Text <> "" Then

x = x + 2

Rows(x & ":" & x).Select

Selection.Insert Shift:=xlToRight

Else

x = x + 1

Rows(x & ":" & x).Select

Selection.Insert Shift:=xlToRight

End If

x = x + 1

Wend

x = 1

Range("A" & x).Select

End Sub

Além de separar somente o primeiro e o último horário com o mesmo intervalo de tempo, ele ainda insere uma linha em branco entre o último horário de um intervalo e o primeiro horário de outro intervalo.

Pra quem considerar essa macro útil, aí está....

[ella_al]

Se a planilha tiver fórmulas, justamente nas células a serem excluídas, a melhor opção é ocultar ao invés de excluir:

Range(x & ":" & x).Select

Selection.EntireRow.Hidden = True