Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por luizpaps
Posts Avatar
#10625
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.
#10627
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
#10628
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
#10629
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 todos
Sub 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
#10630
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.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord