将数据从一列提取到另一列

将数据从一列提取到另一列

我有数千条类似于以下列的数据

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

如果您知道如何在 Open Office 中执行此操作,我可以使用 Open Office,然后将其保存为 MS Excel。

答案1

选择列。
转到数据选项卡并选择文本分列
选择分隔在第一页上,点击Next
选择逗号在下一页上,单击Finish

答案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

相关内容