-2

我需要将线性逗号分隔的数据转换为 excel 中的列。例如：

86401、86403、86404、86406、86409、86413、86426、86429、86436、86438、86440、86442

有没有我可以运行的公式来得到下面的结果？我需要将这些数据填充到 excel 的列中。

86401 86403 86404 86406 86409 86413 86426 86429 86436 86438 86440 86442

任何帮助，将不胜感激。

4

2 回答 2

1

带有分隔符的文本到列,然后转置应该可以工作。

于 2013-09-20T22:31:05.317 回答
0

You can adjust this to meed your needs:

Sub Columate()
    ary = Split(ActiveCell.Value, ",")
    Dim Destination As Range
    Set Destination = Range("B9")
    For i = LBound(ary) To UBound(ary)
        Destination(i) = ary(i)
    Next i
End Sub

It take the contents of the ActiveCell, splits it, and stores the results downward starting at cell B9

于 2013-09-20T22:28:48.203 回答