Wyodrębnianie danych z kolumny do innej

Mam tysiące danych w kolumnie podobnej do

1651651465,"15654"
41654544,"4814"

wszystkie są w jednej kolumnie (jak A1, A2, A3, ....)

Chcę wcześniej zapisać numer ,w A1 (A2, A3, A4 ...), a numer w środku ""do B1 (B2,3, ...). jak mogę to zrobić?

będzie to jak:

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

Jeśli wiesz, jak to zrobić w otwartym biurze, mogę użyć otwartego biura, a następnie zapisać go jako MS Excel.

Wybierz kolumnę.
Przejdź do zakładki Dane i wybierz Tekst do kolumn .
Wybierz rozdzielany na pierwszej stronie, kliknij Next.
Wybierz przecinek na następnej stronie, kliknij Finish.

Wypróbuj to małe makro:

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