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

时间:2013-12-17 20:32:34

标签: excel vba excel-vba

我有这个由股市数据组成的字符串:

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

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

我想要做的是将每个数据块拆分成Excel中的单独单元格。

2 个答案:

答案 0 :(得分:3)

有一个名为“Text to columns”的选项,这将解决您的问题。使用此工具可以定义文本分隔符(;,等)或文本块的大小。

http://office.microsoft.com/en-001/excel-help/split-text-into-different-cells-HA102809804.aspx

如果您想要基于VBA脚本的解决方案,可以查看Excel Macro - Comma Separated Cells to Rows

答案 1 :(得分:0)

我不得不考虑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