如何将Excel中的5列X1000多行的数据快捷的存入VBA的数组当中？

来源：百度知道 编辑：UC知道 时间：2024/05/24 18:39:03
我有83个Excel表格，我需要对这些表格进行查表操作，需要在VBA中实现相关操作，而且需要把Excel的数据导入到VBA的脚本程序中的二维数组当中。问题是如何把Excel的数据导入到VBA的脚本程序中的二维数组当中？
谢谢。
或者说如何将excel中的这些没有什么规律的值赋给一个二维数组？
对于以上回答表示感谢。
还有问题，我有83个形式相同的表，也就是有83个文件。我需要把这83个文件的数据一次性读到教本的二纬数组当中。

Sub 按钮1_单击()
'

Dim str1(1000, 1000) As String

For i = 1 To 3
For j = 1 To 3

str1(i, j) = Cells(i, j)
MsgBox str1(i, j)

Next j
Next i

End Sub

1.如果各个表名字没有规律，建立表名字的目录
2.以上是二维数组的简单操作。。若果有这些你还不会的话你自己就做不了了。。

让程序一个一个打开后读入就可以了，我编过的，但你要给出目录名或者程序中一个一个给出文件名称

Dim s()
s = Range("A1:Z100") '将26*100的格元格的值赋给数组s
Range("AA1:AZ100") =s '将数组s赋值给26*100的格元格

??????发个例子