数组很大时，系统提示过程过大，怎么解决

wangfei0918

程序目的：根据已有的整数，返回在数组中对应位置的值。
问题：1.数组很大，都是小数，大概有5000个数左右，用的是array函数创建的数组，当千辛万苦把数组写完之后，运行的时候提醒事件过大，大于64K会报错，当时我的心是破碎的
Dim arr1 As Variant                                                  
        arr1 = Array(）

          2.当数组有5000多个时，需要很多续行符“”    _“”但是一旦过于大约20个左右时，就会提示“”行标志符号过多“”
希望各位大神能帮忙解决下

wang-way

无图无附件无说明无人回复

李公子2017

继续出继续出继续出