作者：乔山办公网日期：
返回目录：excel表格制作
Sub xx()
Dim arr(1 To 7, 1 To 3)
For i = 1 To 7
For j = 1 To 3
arr(i, j) = Cells(i, j)
Next
Next
MsgBox arr(1, 1)
End Sub
'动态数组的一个例子。
Private Sub Command1_Click()
Dim a() As Integer'定义一个可变的数组
Dim n As Integer
n = 10
ReDim a(n) As Integer'重新定义大小
For i = LBound(a) To UBound(a)'用这两函数获得数据的上标和下标
a(i) = i + 1
Print i
Next
Print "-------------------"
ReDim Preserve a(n + 2) As Integer'加Preserve维持原始数据不变，如果没有这个关键词，所有元素都将变成0
a(n + 1) = 11
a(n + 2) = 12
For i = LBound(a) To UBound(a)
a(i) = i + 1
Print i
Next
End Sub
打开数据表后的行列数可以用7a686964616fe4b893e5b19e362下面两句得到：
ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.Columns.Count
定义变量或数组只能直接用字符作变量名或数组名，所以你这种连续的数组申明也没法使用循环语句
将A列所有数知据，都道变为回100，显示在B列？答
Sub a()
Dim brr(1 To 5000, 1 To 1)
arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(arr)
brr(i, 1) = 100
Next
[b1].Resize(i, 1) = brr
End Sub