excel - 用逗号分隔家庭地址

Question

我有大约 15 个地址，格式如下 1111 Really Cool Street, Sweet City, Awesome State我需要将它们分成不同的单元格，分别代表他们的街道、城市和州。

我目前遇到的问题是存储街道、城市和州。我已经尝试过一些类似的东西..

Dim addressArray() As String

posRow = 1
Do
posRow = posRow + 1
    addressFromCell= Sheet1.Cells(posRow , "C")
    addressArray() = Split(addressFromCell, ",")
        Sheet2.Cells(posRow , "A") = addressArray(0)
        Sheet2.Cells(posRow , "B") = addressArray(1)
        Sheet2.Cells(posRow , "C") = addressArray(2)
Loop Until posRow = 15

我以为 addressArray看起来像 {"1111 Really Cool Street","Sweet City", "Awesome State"}我可以简单地传入我想要的元素。相反，我不断得到

Run-time error '9': Subscript out of range

任何帮助都会很棒，谢谢!

Answer 1

正如 Ken White 指出的那样，错误的原因是其中一个值不包含 2 个逗号。

这是我的做法:

Dim addressArray() As String

posRow = 1
Do
    posRow = posRow + 1
    addressArray() = Split(Sheet1.Cells(posRow, "C").Value, ",")
    Sheet2.Cells(posRow, "A").Resize(1, UBound(addressArray) + 1).Value = addressArray()
Loop Until posRow = 15

此代码使用 UBound function检索数组的上限(最后一个元素的编号)，并确保范围始终与数组大小相同。