0

Pretendo extrair apenas as numerações em vermelho para a tabela seguinte "Red", porém os espaços estão diferente e eu já testei um monte de fórmulas para resolver essa questão.

Utilizei uma fórmula um pouco complexa, mas ela não deu certo, tudo isso por causa que os espaços entre os números vermelhos são diferente, eu utilizei essa fórmula:

=ARRUMAR(DIREITA(ESQUERDA(SUBSTITUIR(ARRUMAR(A207);" ";REPT(" ";10));30);50))

Como eu faço para extrair apenas as numerações em vermelho??

inserir a descrição da imagem aqui

12
  • Mas qual é a lógica para saber que número precisa extrair, seria o que segue uma sequência sem repetir? Commented 10/09/2019 às 19:52
  • Estou no trabalho e aqui estou sem tempo, mas você pode fazer com VBA utilizando a função MID mesclada com esse código aqui superuser.com/questions/1067320/…
    – Evilmaax
    Commented 10/09/2019 às 19:57
  • Eu queria apenas os números em vermelho de acordo com cada células referente. No caso tem uns que são repetidos, mas caso eu altere para outro tipo de numeração, eles tem que ficarem organizados de acordo com a posição e a quantidade Commented 10/09/2019 às 19:57
  • @ Max sei pouquíssimo de VBA, mas sei editar códigos e gravar macros. Eu posso esperar, caso você queira preparar um código ou uma fórmula mesmo no Excel Commented 10/09/2019 às 19:59
  • através de fórmula é impossível
    – Evilmaax
    Commented 10/09/2019 às 20:01

2 Respostas 2

1

Faça o seguinte:

Insira o código abaixo em um módulo. Alt + F11, Insert, Module.

Function ExtrairTextoPorCor(pRange As Range) As String

        Dim xOut As String
        Dim xValue As String
        Dim i As Long
        xValue = pRange.Text

        For i = 1 To VBA.Len(xValue)
    'O RGB determina a cor que a fonte está, caso esteja diferente, faça a alteração no trecho do código RGB(255,0,0)
            If pRange.Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
                xOut = xOut & VBA.Mid(xValue, i, 1)
            End If

        Next

        ExtrairTextoPorCor = xOut
    End Function

Volte para a planilha e procure uma célula vazia e insira a fórmula =ExtrairTextoPorCor(A207)

3
  • conseguiu aplicar a solução? Commented 19/09/2019 às 19:50
  • Sim, deu certo! Só uma coisinha que incomoda um pouco é que, se tiver por exemplo duas numerações com cores iguais, ex: 111 00 111, vamos supor que estes dois "111" está em vermelho, nesse caso ele vai extrair dessa forma: "111111" sem dar o espaço entre eles. Porém se formatar os espaçamento em vermelho ele obedece e extrai o espaço, "111 111" Commented 20/09/2019 às 4:09
  • Utilize esse código Commented 27/09/2019 às 13:50
0
Function ExtrairTextoPorCor(pRange As Range) As String

        Dim xOut As String
        Dim xValue As String
        Dim i As Long
        xValue = pRange.Text

        For i = 1 To VBA.Len(xValue)
    'O RGB determina a cor que a fonte está, caso esteja diferente, faça a alteração no trecho do código RGB(255,0,0)
            If pRange.Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
                xOut = xOut & VBA.Mid(xValue, i, 1)
            ElseIf pRange.Characters(i, 1).Text = " " Then
                xOut = xOut & VBA.Mid(xValue, i, 1)
            End If
        Next
        ExtrairTextoPorCor = xOut
End Function

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .