我的值范围从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
答案 0 :(得分:0)
Mode_Mult的结果实际上是一个二维数组,因此您需要使用:
Debug.Print varMode_Mult(i, 1)
访问元素。