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

Question

我需要将线性逗号分隔数据转换为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

任何帮助都将不胜感激。

Answer 1

文本到,作为分隔符的列，然后Transpose应该有效。

Answer 2

您可以根据自己的需要进行调整：

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

获取ActiveCell的内容，将其拆分，并从单元格B9开始向下存储结果