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

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

---

如有任何帮助，我们将不胜感激。

您可以根据需要调整此选项：

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开始向下存储到以“

”作为分隔符的列中，然后进行转置