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 ，那么它肯定是您希望此代碼定位的單元格嗎？