Extraindo dados de uma coluna para outra

2

Eu tenho milhares de dados em uma coluna semelhante a

1651651465,"15654"
41654544,"4814"

eles estão todos em uma única coluna (como A1, A2, A3, ....)

Eu quero salvar o número antes de , para A1 (A2, A3, A4 ...) e o número dentro de "" para B1 (B2,3, ...). como posso fazer isso?

es Bes es es es es es es es v v v v v es BB B BB es es es
       A            B
1   1651651465    15654
2   41654544       4814
3   etc
4   etc

Se você souber como fazê-lo em um escritório aberto, posso usar o Open Office e salvá-lo como MS Excel.

    
por sven 15.10.2013 / 19:09

2 respostas

3

Selecione a coluna.
Vá para a guia Dados e selecione Texto para colunas .
Selecione delimitado na primeira página, clique em Próximo .
Selecione vírgula na próxima página, clique em Concluir .

    
por 15.10.2013 / 19:14
1

Experimente esta pequena macro:

Sub reformit()
    Dim s As String, N As Long, L As Long
    s = Chr(34)
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For L = 1 To N
        v = Replace(Cells(L, "A"), s, "")
        ary = Split(v, ",")
        Cells(L, "A") = ary(0)
        Cells(L, "B") = ary(1)
    Next L
End Sub
    
por 15.10.2013 / 19:17