vba - 返回单元格中有多少个单词

Question

有人可以帮我提供有关如何使用 VBA 返回单元格中的单词数的建议吗？

在 Excel 中，我使用 C2=LEN(B2)-LEN(SUBSTITUTE(B2,"",""))+1，但在 VBA 中似乎是“SUBSTITUTE"函数不再起作用。

Answer 1

分割空格字符并获取结果数组的上边界。

dim numchars as long
numchars = ubound(split(range("b2").value2, chr(32)))+1
debug.print numchars

添加 1 是因为 VBA 数组的默认起始值​​ (lbound) 为零。

顺便说一句，工作表 SUBSTITUTE 函数的 VBA 等效项是 Replace。