如题所述
'向VBA数组中写入数据
'1、按编号(标)写入和读取
Sub t1() '写入一维数组
Dim x As Integer
Dim arr(1 To 10)
arr(2) = 190
arr(10) = 5End Sub
Sub t2() '向二维数组写入数据和读取
Dim x As Integer, y As Integer
Dim arr(1 To 5, 1 To 4)
For x = 1 To 5
For y = 1 To 4
arr(x, y) = Cells(x, y)Next yNext xMsgBox arr(3, 1)End Sub
'2、动态数组Sub t3()Dim arr()Dim rowrow = Sheets("sheet2").Range("a65536").End(xlUp).row - 1
ReDim arr(1 To row)
For x = 1 To row
arr(x) = Cells(x, 1)Next xStopEnd Sub
'3、批量写入
Sub t4() '由常量数组导入Dim arrarr = Array(1, 2, 3, "a")StopEnd Sub
Sub t5() '由单元格区域导入Dim arrarr = Range("a1:d5")StopEnd Sub
'1、按编号(标)写入和读取
Sub t1() '写入一维数组
Dim x As Integer
Dim arr(1 To 10)
arr(2) = 190
arr(10) = 5End Sub
Sub t2() '向二维数组写入数据和读取
Dim x As Integer, y As Integer
Dim arr(1 To 5, 1 To 4)
For x = 1 To 5
For y = 1 To 4
arr(x, y) = Cells(x, y)Next yNext xMsgBox arr(3, 1)End Sub
'2、动态数组Sub t3()Dim arr()Dim rowrow = Sheets("sheet2").Range("a65536").End(xlUp).row - 1
ReDim arr(1 To row)
For x = 1 To row
arr(x) = Cells(x, 1)Next xStopEnd Sub
'3、批量写入
Sub t4() '由常量数组导入Dim arrarr = Array(1, 2, 3, "a")StopEnd Sub
Sub t5() '由单元格区域导入Dim arrarr = Range("a1:d5")StopEnd Sub
温馨提示:答案为网友推荐,仅供参考