excel vba子脚本出界错误

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

以下是代码：

---

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 

引用单元格中的值不是null，还有什么原因呢？ 有没有另一种方法来做到这一点。

请帮我一下

Answer 1

如果将Dim strRisk() As String定义为dynamic数组，则需要使用Redim strRisk (n)并进一步使用相应的索引strRisk(i)=.... ： strRisk(i)=....

如果要将strRisk作为数组存储，请使用Dim strRisk As Variant ，然后strRisk=...将起作用。

Answer 2

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

如果你现在在即时窗口中运行Excel.ActiveCell(0, 9).select这行Excel.ActiveCell(0, 9).select它肯定是你希望这个代码目标的单元格？