Извлечение данных из столбца в другой

Question

У меня есть тысячи данных в столбце, который похож на

1651651465,"15654"
41654544,"4814"

все они в одном столбце (например, A1, A2, A3, ....)

Я хочу сохранить номер раньше , в A1 (A2, A3, A4 ...) и номер внутри "" в B1 (B2,3, ...). как мне это сделать?

тогда это будет как:

       A            B
1   1651651465    15654
2   41654544       4814
3   etc
4   etc

Если вы знаете, как сделать это в открытом офисе, я могу использовать открытый офис, а затем сохранить его как MS Excel.

Answer 1

Выберите столбец.
Перейдите на вкладку « Данные » и выберите « Текст в столбцы».
Выберите разделитель на первой странице, нажмите Далее.
Выберите запятую на следующей странице, нажмите Готово.

Answer 2

Попробуйте этот маленький макрос:

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