关于EXCEL 数组的问题

2025-03-10 13:46:57

推荐回答（2个）

回答1：

Dim arr(1 To 100) As Integer这个数组是一维的

要想程序正常运行，可以这样
Sub bb()
Dim arr(1 To 100,1 to 1) As Integer '改变数组维数
Dim i As Integer
For i = 1 To 100
arr(i,1) = i
Next
[D5].Resize(100, 1) = arr
End Sub
或者
Sub bb()
Dim arr(1 To 100) As Integer
Dim i As Integer
For i = 1 To 100
arr(i) = i
Next
[D5].Resize(100, 1) = application.TRANSPOSE(arr) '将一维数组转置一下，成为二维数组
End Sub

回答2：

数组名就表示第一个地址，你相当于把arr(1)赋给到左边的区域