Question

我有一个包含字符串＆＃34; Tom，Adam，Ben，Sarah＆＃34;的单元格。我试图将每个项目放入一个数组。 Split（）函数似乎不适用于＆＃34;，＆＃34;作为分隔符;只有＆＃34;，＆＃34;

因此，我尝试在使用Split（）之前从字符串/单元格中删除空格。在这种情况下，我使用Substitute（）函数，因为Replace（）似乎不起作用。

workingCell = "Tom, Adam, Ben, Sarah"
workingCell1 = Range("C4") 'contains: Tom, Adam, Ben, Sarah

workingCell = WorksheetFunction.Substitute(workingCell, " ", "")   'removes all spaces
workingCell1 = WorksheetFunction.Substitute(workingCell1, " ", "") 'retains all spaces

splitArr = VBA.Split(workingCell1, ",")

For Each element In splitArr
    Debug.Print (element)
Next

似乎Range（＆＃34; C4＆＃34;）未被视为值，并且不被视为字符串。使用范围（＆＃34; C4＆＃34;）。值也不起作用。

Answer 1

您无需删除空格。只需将它们作为分割函数中分隔符的一部分包含在内。

workingCell1 = Range("C4") 'contains: Tom, Adam, Ben, Sarah
splitArr = VBA.Split(workingCell1, ", ")

For Each element In splitArr
    Debug.Print (element)
Next

请注意此行中分隔符参数中逗号后面的空格：

splitArr = VBA.Split(workingCell1, ", ")

VBA：Substitute（）适用于字符串，但不适用于Cell内容

1 个答案: