Vba 如何将字符串拆分为单独的单元格

我有一个由股票市场数据组成的字符串：

 162,90 1,10 0,67 162,80 163,00 164,30 162,80 157087560

我们可以看到，一个字符串中有8个数据块，这些数据块用空格分隔

我想做的是将每个数据块拆分，并将其放在Excel中的单独单元格中。

有一个名为“文本到列”的选项，这将解决您的问题。使用此工具可以定义文本分隔符（

；

，

，

，等等）或文本块的大小

---

如果你想要一个基于VBA脚本的解决方案，你可以看看

我不得不考虑一下mehow的上限评估。我为我的有用片段想出了这个：

        For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
            ' find last row in column A with data:
            ' from the bottom ("A" & Rows.Count)
            ' proceed Up to find last populated Cell in a given column (A)
        Next c

        For Each c In Range("A1:A" & Range("A1").End(xlDown).Row)
            ' from A1
            ' from top proceed down to row above the first unoccupied cell
        Next c