excel - excel vba子脚本越界错误

Question

我试图获得以下代码的输出，但它给出了错误

以下是代码：

Dim strRisk() As String
Dim riskLen As Integer

strRisk = SplitMultiDelims(ActiveCell.Offset(0, 9).Value, "@")
MsgBox UBound(strRisk)

错误：

Run time error '9':
Subscript out of range

引用单元格中的值不为空，还有什么原因？还有另一种方法可以做到这一点。

请帮帮我

score 2 · Accepted Answer

如果您定义Dim strRisk() As String为动态数组，那么您需要Redim strRisk (n)并进一步参考带有相应索引的 strRisk：strRisk(i)=....

如果您想将 strRisk 存储为数组，请使用Dim strRisk As Variant, then 即可strRisk=...。

score 0 · Accepted Answer

在开始的行上添加一个断点，strRisk然后运行代码。

如果您现在Excel.ActiveCell(0, 9).select在即时窗口中运行该行，它肯定是您希望此代码针对的单元格吗？

2 回答 2