vba - 如何从单列中分离单词

Question

我正在尝试使用 excel/VBA 从文本文件中读取数据。但是，当我导入文件时，所有单词都在同一列中。文本从 PDF 生成，同时保留表格布局。所以单词是空格分隔的，但间距不一致。我希望代码通过单元格运行并将单词分开。然而，对于细胞来说，有两件事是正确的

1. 单个单词有一个间距
2. 单词由两个或多个空格分隔

标签： vbatext-to-column

Answer 1

此代码获取 column 中的前 100 个单元格，A按空格拆分其内容，并将其粘贴到 columnB

Dim A_row As Integer, B_row as Integer, i As Integer, words()
For A_row = 1 To 100' Last row t o consider
    words = Split(Range("A" & A_row), " ")
    For i = LBound(words) To UBound(words)
        B_row = B_row + 1
        Range("B" & B_row) = words(i)
    Next i
Next A_row

我相信你可以得到要点，并根据你的需要进行修改