从工作表函数“Mode_Mult”访问结果时,Excel VBA下标超出范围

时间:2015-09-04 06:30:03

标签: excel-vba vba excel

我的值范围从Cells(1,1)Cells(10,1)。看下面,这个范围需要返回多个模式3和4.我已经创建了小代码,但它给了我错误

  

运行时错误'9':下标超出范围

有什么想法吗?

1
1
2
2
3
3
3
4
4
4

Sub ModeXY()
    Dim R As Range
    Set R = Range(Cells(1, 1), Cells(10, 1))

    Dim i As Integer
    Dim varMode_Mult As Variant
    Debug.Print R.Address
    varMode_Mult = WorksheetFunction.Mode_Mult(R)
    Debug.Print UBound(varMode_Mult)
    For i = 1 To 2
        Debug.Print varMode_Mult(i) 'this gives me the Subscript out of range   error.
    Next i
End Sub

1 个答案:

答案 0 :(得分:0)

Mode_Mult的结果实际上是一个二维数组,因此您需要使用:

Debug.Print varMode_Mult(i, 1)

访问元素。