Guru do Excel e Power BI

Enviado: **22 Jun 2016 às 10:45**

Pessoal
Bom dia,

Tenho vários textos que seguem o seguinte formato:
001 - PRIMEIRO TEXTO
002 - SEGUNDO TEXTO
.
.
150 - ULTIMO TEXTO

O que preciso é o seguinte, quero extrair o número inicial sem perder os zeros.
Já utilizei o Left e o Mid mais ambos me retornam apenas o número, ex.: 1, 2, ..., 150 e o que eu preciso é de 001, 002, ..., 150.
Utilizei tbm um Format(Left(TEXTO,3),"##0"), mais não obtive êxito...

Espero ter sido claro, se puderem me orientar em qual função vou conseguir extrair os número no formato desejado.
Desde já agradeço...

Enviado: **22 Jun 2016 às 11:00**

Bom dia,

não sei qual versão do Office você está usando, mas aqui funciona normal com a fórmula abaixo:

Código: Selecionar todos

=ESQUERDA(A1;3)

Att

Enviado: **22 Jun 2016 às 11:35**

Aparentemente está utilizando uma rotina/macro para essa extração, pois conforme o colega Kledison expos, com a função na planilha o retorno é no formato texto.
Ao utiliza uma macro duas sugestões para ter o retorno conforme espera:
Primeira: Formatar previamente a coluna que irá receber o dado extraido como TEXTO. Selecione a coluna desejada, botão direito do mouse --> Formatar Celulas --> Texto.
Segunda: "Salvar/Gravar" o dado extraído precedido de um apostrofe " ' "
Algo +/- assim Texto="'" & Left(seuTexto, 3)

Enviado: **22 Jun 2016 às 11:43**

bom dia,

somente com o recurso preenchimento relâmpago já resolve.

Abraços

Enviado: **22 Jun 2016 às 12:44**

Boa tarde!!

Eu vou considerar que sua postagem na categoria VBA tem a intenção de ter uma solução via VBA, então

Código: Selecionar todos

Sub FormulaVia_VBA()
Dim ws As Worksheet
Dim RngFormula As Range

Set ws = Worksheets("Plan1")

Application.ScreenUpdating = 0
    'Insere Formula
    With ws
        Set RngFormula = .Range("B2:B" & .Range("A65536").End(xlUp).Row)
        RngFormula.NumberFormat = "General"
        RngFormula.Formula = "=LEFT(A2,3)"
        RngFormula.NumberFormat = "@"
        RngFormula.Value = RngFormula.Value
    End With
Application.ScreenUpdating = 1
End Sub

Do contrário, seu tótico será movido para a categoria fórmulas.

Att

Guru do Excel e Power BI

Extrair TEXTO sem alterar Formato

Extrair TEXTO sem alterar Formato

Re: Extrair TEXTO sem alterar Formato

Extrair TEXTO sem alterar Formato

Re: Extrair TEXTO sem alterar Formato

Re: Extrair TEXTO sem alterar Formato