Ir ao conteúdo
  • Cadastre-se

Excel Como separar números e textos numa mesma coluna no excel


Posts recomendados

Boa tarde pessoal!

 

Estou com um problema aqui e venho pedir ajuda de vocês. Tenho uma planilha no Excel 285.159 linhas, sendo que há códigos e textos nesta coluna, porém eu preciso separar os textos dos códigos. Além disso, preciso que o texto seja plotado em outra coluna e na linha que inicia o código do mesmo grupo. 

Ex:

Registro

420540740000020

150840705000040

150840705000039

150840705000041

150840705000056

150840705000055

150840705000042

150840705000054

150840705000051

150840705000032

150840705000033

150840705000031

150840705000038

150840705000059

150840705000044

150840705000046

150840705000047

150840705000062

Reconhecido

320400525000004

320400525000002

320400515000011

320400515000004

320400515000005

320400515000008

320400515000016

 

E assim por diante até o final. A quantidade de códigos vária para os diferentes tipos de status. Como resultado eu preciso de algo assim:

A1 - 420540740000020                              B1 - Registro

420540740000020

150840705000040

150840705000039

150840705000041

150840705000056

150840705000055

150840705000042

150840705000054

150840705000051

150840705000032

150840705000033

150840705000031

150840705000038

150840705000059

150840705000044

150840705000046

150840705000047

150840705000062

Ai - 320400525000004           Bi - Reconhecido

320400525000004

320400525000002

320400515000011

320400515000004

320400515000005

320400515000008

320400515000016

 

Fico grato se alguém conseguir me ajudar.

Link para o comentário
Compartilhar em outros sites

Se for aceitável uma solução via macro e se você quiser experimentar, então instale uma cópia do código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).
Essas três opções para rodar o código podem ser implantadas isoladamente ou em conjunto.

 

Sub DeslocaTextos()
 Dim LR As Long, c As Range, i As Long
  Application.ScreenUpdating = False
  ActiveSheet.AutoFilterMode = False
  LR = Cells(Rows.Count, 1).End(3).Row
  ActiveSheet.[A:A].AutoFilter 1, "R*"
  [A1].Cut [B1]
  For Each c In Cells(2, 1).Resize(LR-1).SpecialCells(xlVisible)
   c.Cut c.Offset(-1 - i, 1): i = i + 1
  Next c
  ActiveSheet.AutoFilterMode = False
  [A:A].SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...