如何将excel表格某两列的数据赋值给一个二维数组

我想用excel 宏 vb编辑器 编辑一个可以向内部函数一样自由调用的模块! 要用到两列数,怎么将两列数赋值给定义的二维数组? 请大虾们指点!

dim arr(1 to 3 ,1 to 3)
for i = 1 to 3
for j = 1 to 3
arr(i,j)= cells(i,j)
next
next
温馨提示:答案为网友推荐,仅供参考