VBA - Excel：在不同的列中拆分字符串

Question

我希望我的 excel 文件的用户在单元格“B2”中输入一个句子，然后有一个 Sub 来解析不同列中的句子（从 D2 到 Dn）。因此，例如，如果您在 B2 中键入“aaa bbb ccc ddd”，结果应该是：
D2：aaa
D3 : bbb
D4：ccc
D5：ddd

我找到了如何使用拆分函数使用 VBA 拆分句子，但我很难填充列 D，因为我不知道如何定义最后一行 (Dn)。这是我目前使用的：

Sub splitAddress()
Dim strAddress As String

strAddress = Range("B2").Value
Range("D2:D9").Value = WorksheetFunction.Transpose(Split(strAddress, " "))

End Sub

我想修改“D2:D9”，因为 D9 并不总是该列的最后一行。如何写它应该根据我的 B2 单元格中的单词数从 D2 填充到 Dn？ 提前致谢！

Answer 1

像下面这样的循环会为你做这件事：

Sub splitAddress()

Dim i As Integer, x As Integer
Dim c As Range

i = 0
x = 1

Set c = Range("A5")

i = InStr(c.Value, " ")

c.Offset(0, x).Value = Left(c.Value, i - 1)
x = x + 1
i = InStr(i, c.Value, " ")

Do Until InStr(i + 1, c.Value, " ") = 0

    c.Offset(0, x).Value = Mid(c.Value, i + 1, InStr(i + 1, c.Value, " ") - i)
    i = InStr(i + 1, c.Value, " ")
    x = x + 1
Loop

End Sub

Answer 2

可能有更优雅的方法可以做到这一点，但是如果您将地址拆分为一个数组，您可以使用Ubound 获取数组中的元素数，并使用.Resize 来增加您的范围内的行数：

Sub splitAddress()
  Dim strAddress As String
  Dim strAddressParts() As String
  Dim numParts As Integer

  strAddress = Range("B2").Value

  strAddressParts = Split(strAddress, " ")
  numParts = UBound(strAddressParts) + 1

  Range("D2").Resize(numParts).Value = WorksheetFunction.Transpose(strAddressParts)
End Sub