老是提示数组下标越界

denxxx

MaxRow = Cells(Rows.Count, 5).End(3).Row
MyArr = Range("E2:E" & MaxRow).Value
For q = LBound(MyArr) To UBound(MyArr)
UArr(q) = MyArr(q)
Next q

UArr(q) = MyArr(q)这一行老是提示下标越界，
MyArr(q) = MyArr(q) 写成这样也不行，一样提示下标越界，好奇怪

剑指E

MyArr(q,1) = MyArr(q,1)
UArr不知道你定义成啥样子

excel玉米

MyArr = Range("E2:E" & MaxRow).Value
这段，从单元格读入数据形成的数组是MyArr(1,1)这种形式，所以你这样写UArr(q,1)=MyArr(q,1)这样应该可以。本地窗口你查看数组的值就知道了。当然没有看到你定义UArr数组的大小，如果没有定义，则要定义其大小，否则还是会出错

XIAOC.

MyArr(q)应该是MyArr(q,1),UArr是数组还得声明一下