Boa tarde!
Nossa, nunca vi isso, quatro linhas na mesma célula O.o... isso deu trabalho
Tenta essa função:
Código: Selecionar todosFunction Horário(Intervalo As Range, Ocorrência As Integer)
Dim Divisão As Variant
Dim i As Integer
Dim ContOcorrência As Integer
Divisão = Split(Intervalo, ":")
For i = 2 To 100
If i / 2 = Ocorrência Then
Horário = Right(Divisão(i / 2 - 1), 2) & ":" & Left(Divisão(i / 2), 2)
Exit Function
End If
Next i
End Function
Cola em um módulo no VBE, e depois vá até uma célula em branco, e digite:
=Horário (Célula;Número_da_Ocorrência)
Sendo que Célula é o local de onde você vai retirar a informação, e Número_da_Ocorrência, ele te retornará o horário correspondente em uma única célula; acredito que com isso você consiga fazer sua análise.
Exemplo:
Então =horário(A1;2) retorna 12:49.
Isso te atende?