Mengekstraksi data dari kolom ke yang lain

Saya memiliki ribuan data pada kolom yang mirip dengan

1651651465,"15654"
41654544,"4814"

semuanya dalam satu kolom (seperti A1, A2, A3, ....)

Saya ingin menyimpan nomor sebelum ,ke A1 (A2, A3, A4 ...) dan nomor di dalam ""ke B1 (B2,3, ...). bagaimana saya bisa melakukannya?

maka akan seperti:

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

Jika Anda tahu cara melakukannya di kantor terbuka, saya bisa menggunakan kantor terbuka lalu menyimpannya sebagai MS excel.

Pilih kolomnya.
Buka tab Data dan pilih Teks ke Kolom .
Pilih dibatasi pada halaman pertama, klik Next.
Pilih koma di halaman berikutnya, klik Finish.

Coba makro kecil ini:

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