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

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

请帮帮我

Answer 1

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

如果要将strRisk存储为数组，请使用Dim strRisk As Variant strRisk=...可以使用。

Answer 2

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

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