sql学习备查

feng16888

Sub ddff()
Dim arr() As Integer
For i = 1 To 5
arr(i) = i    ’提示类型不匹配
Next
End Sub
循环赋值的时候，必须是固定大小的数组才能赋值，否则会提示下标越界。如果开始不能确定，那么中要重新定义数组的大小

Sub 填充()
Dim x, y As Integer, rng As Range
Dim arr(100, 50)
For x = 1 To 100
For y = 1 To 50
arr(x, y) = (x - 1) * 5 + y
Next
Next
Set rng = Cells(1, 1).Resize(100, 50)
rng.Value = arr
End Sub
可以把单元格区域的值赋值给数组
myarray=range(cells(1,1),cells(row,col))
把数组中的值赋值给单元格区域用下面语句
rng.value=myarray

feng16888

数组的维数可以在本地窗口可以直接看见，有几个节点就有几个维数
一个维数可以形象的理解为一行，所以如果要填充一列的话，经常要用转换函数transpose

蒋老三

学习一下---------------