Página 1 de 1
Extrair parte do texto de uma célula
Enviado: 13 Mai 2016 às 16:09
por luizpaps
estou importando dados para o excel a partir de um pdf, no entanto quando colo os dados ficam tudo junto, preciso de uma fórmula para extrair apenas a parte do texto que quero, ex:
texto texto texto texto 0,00 0,00 0,00 5.000,00 5.000,00
texto texto texto texto texto 1.000,00 500,00 0,00 1.500,00
texto texto 10.000,00 0,00 1.000,00 9.000,00
texto 1.500,00 0,00 500,00 1.000,00
texto texto texto 0,00 1.000,00 0,00 1.000,00
os dados estão assim são muitas linhas e eu gostaria de extrair apenas os valores, o problema é que em cada linha eles estão em posição diferente como exposto acima, seriam 5 colulas de valores. Desde já agradeço a ajuda e a atenção de vocês que sempre salvam minha pele.
Re: Extrair parte do texto de uma célula
Enviado: 13 Mai 2016 às 17:48
por FelipeMGarcia
Luiz, tem um site q uso para converter q vem certo.
O site é ocronline.com.
Ele converte em excel muito bem e não irá precisar fazer fórmula para ter a informação que precisa.
Abs
Extrair parte do texto de uma célula
Enviado: 13 Mai 2016 às 17:54
por FelipeMGarcia
Luiz, se quiser fazer por fórmula, vc faz assim:
1 - Use a função localizar: =localizar(",";na célula do texto)-1;
2 - Use a função ext.texto conforme abaixo:
=EXT.TEXTO(A1;LOCALIZAR(",";A1)-1;NÚM.CARACT(A1))
Obs: Coloquei o primeiro texto do seu exemplo na célula A1, depois é só arrastar para as demais células.
Abs
Re: Extrair parte do texto de uma célula
Enviado: 13 Mai 2016 às 17:57
por Parkeless
Boa tarde!
A dica do Felipe é ótima. Mas como já bolei alguma coisa, vou postar só para conhecimento mesmo.
Fiz via macro; dados na coluna A:
Código: Selecionar todosSub ExtrairNumeros()
Dim cell As Range
Dim Critério As String, i As Long
Dim Valores
Dim Offset As Long
Critério = " "
For Each cell In Range("A:A").SpecialCells(xlCellTypeConstants)
Valores = Split(cell, Critério)
For i = 0 To UBound(Valores)
If IsNumeric(Valores(i)) Then
Offset = Offset + 1
cell.Offset(0, Offset) = Valores(i) * 1
End If
Next i
Offset = 0
Next cell
End Sub
Extrair parte do texto de uma célula
Enviado: 13 Mai 2016 às 17:59
por FelipeMGarcia
Luiz, outra forma de fazer vc vai na aba dados, texto para colunas, delimitado, e escolhe a opção de espaço, que ele irá criar colunas a cada separação de item por espaço.
O modelo que te mandei por fórmula não irá funcionar muito bem, pois fiz somente para o primeiro exemplo e nos demais a quantidade de caracteres antes da ",", são diferentes.
Extrair parte do texto de uma célula
Enviado: 15 Mai 2016 às 09:32
por luizpaps
agradeço a FelipeMGarcia pelo esforço e a Parkless pela solução, essa macro funcionou fantasticamente, muito obrigado