快速浏览
往期合集:【2023年3月】【2023年4月】【2023年5月】【2023年6月】【2023年7月】【2023年8月】
实用案例
收费使用项目
内容提要
Dim arr1(5)
Dim arr2()
Dim arr1(5)
For i = 0 To 5
arr1(i) = i
Next
arr1(0)=0
arr1(1)=1
arr1(2)=2
arr1(3)=3
......
Dim ws As Worksheet
Dim arr()
Set ws = Sheets("Sheet1")
arr = ws.UsedRange
Dim ws As Worksheet
Dim arr()
Set ws = Sheets("Sheet1")
arr = ws.Range("A1").CurrentRegion
Dim ws As Worksheet
Dim arr()
Set ws = Sheets("Sheet1")
arr = ws.Range("A1:O15").value
Dim ws As Worksheet
Dim lastRow As Long, lastCol As Long
Dim arr()
Set ws = Sheets("Sheet1")
With ws
lastRow = ws.UsedRange.Rows.Count
lastCol = ws.UsedRange.Columns.Count
arr = ws.Range(.Cells(1, 1), .Cells(lastRow, lastCol))
End With
Dim arr()
arr = Array(1, 2, 3, 4, 5, 6)
arr = Array("A", "B", "C")
arr = Array(Array(1, 2, 3), Array("A", "B", "C"))
Dim ws As Worksheet
Dim lastRow As Long, lastCol As Long
Dim arr(), arr1()
Set ws = Sheets("Sheet1")
With ws
lastRow = ws.UsedRange.Rows.Count
lastCol = ws.UsedRange.Columns.Count
arr = ws.Range(.Cells(1, 1), .Cells(lastRow, lastCol))
End With
arr1 = arr
Dim rs As Object
Dim cnn As Object
Dim arr()
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
......
Set rs = cnn.Execute(Sql)
arr = rs.getrows
arr = dic.keys
arr = dic.items
6、通过循环给数组赋值
(1)循环单元格给数组赋值
Dim ws As Worksheet
Dim arr()
Set ws = Sheets("Sheet1")
ReDim arr(1 To 15, 1 To 15)
For i = 1 To 15
For j = 1 To 15
arr(i, j) = ws.Cells(i, j)
Next
Next
(2)循环数组给数组赋值
'相当于把arr1转置
For i = 1 To 10
For j = 1 To 15
arr(i, j) = arr1(j,i)
Next
Next
7、数组动态扩展赋值
当我们要把一些符合条件的数据写入数组时,我们没办法确切地知道数组元素的多少,我们可以定义一个非常大的数组,比如,ReDim arr(1 to 10000),这样可以从容写入数据,不至于出现“下标越界”的错误。
不过,我不太主张这种方式。有一种方法,叫动态扩展,在改变数组大小的同时,保留已有数据:redim preserve arr(...),这是【物资管理:根据物资发出数量、归还数量,求未归还数量/未归还数量单元格区域自动更新】中使用的例子代码
For Each Key In dic.keys
If dic(Key) <> 0 Then
ReDim Preserve arr(0 To 1, 0 To k)
arr(0, k) = Key
arr(1, k) = dic(Key)
k = k + 1
End If
Next
但我们要注意,数组的扩展只能是扩展列,不能扩展行。如果我们必须要扩展行的话,我们可以来个转置,扩展列,数据处理完成后,再转置回去。就如同上面的代码,在数组中,数据是这样的,向箭头方向扩展,最终我们存到工作表,是经过转置后的数据:
四、数组数据写入工作表
Set rng = ws.Range("I3").Resize(UBound(arr, 2) + 1, 2)
rng = Application.WorksheetFunction.Transpose(arr)
数据在数组中经过处理以后,大多要回写到工作表。我们要指定一个与数组一般大小的区域,如果数据区域指定得不准确,要么会遗漏数据,要么在工作表中出现错误值。
这里用了一个工作表函数Transpose转置数组,这里要注意一下,这个Transpose函数转置的数组中,不能用Null值,有则报错。这种情况通常发生在从数据库里查询数据存入数组中,可能会有Null值。
如果使用Transpose报错,我们应该怎么办呢?如果数据不多,我们可以直接循环数组,把数组的每个元素的值直接写入单元格,只要把Cells的行列标与数组arr的行列对调就可以了,当然要加上一个数字,对应到实际单元格。
如果数据很多,我们可以重新定义一个数组,行列跟原来数组对调,通过循环把数据写入新的数组,
For i = 1 To 10
For j = 1 To 15
arr(i, j) = arr1(j,i)
Next
Next
再把新的数组直接写入工作表,不用再转置。
五、数组在用户窗体控件中的应用,时间关系,不展开了,在前期文章中也多有提及。
1、把数组赋值给复合框的List
2、把数组赋值给ListView
3、把数组赋值给ListBox
4、把数组赋值给TreeView
其实,万变不离其宗,就是循环数组。
好,今天就到这吧。
喜欢就点个赞、点在看、留言评论、分享一下呗!感谢支持!
联系客服