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

Maicon dos Santos · 1 de julho de 2020

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.

1 de julho de 2020

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