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

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á....

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???