请问vba中怎么表示数组的一部分

borisexcel

需要把一个数组中的内容赋值到表格中，我现在使用的是逐个循环的方式：
Dim arr(200) As Integer
......    '（代码略，对arr整个数组中的所有元素都进行了赋值）
For i = 2 To 100
    theSheet.Cells(i, 1) = arr(i + 1)
Next i

不知道是否有什么方式可以表示数组中的一部分元素，例如上述的：arr(3)～arr(101)？这样我就可以一次性给一串单元格（即range）赋值了。

BTW，我尝试用“theSheet.Range("A2:A100") = arr(3)”，发现99个单元格的内容都被赋值为arr(3)，与预期不符。（尝试用(3:101)、[3:101]或{3:101}等，都提示错误）
网上搜了一下，也没找到怎么表示数组的一部分元素的方法。

谢谢！

keai958

你循环里不就是取的一部分？如果数组是满的，那么应该有200个，你才取了99个而已

borisexcel

因为需要赋值的单元格很多，每次都只对一个单元格赋值（给cells赋值），程序运行时间比较长。所以想看看能否一次性对一串连续的单元格赋值（给range赋值）。

BTW，实际需求中，这个数组的不同元素有不同的含义，不是整个数组都需要赋值到单元格中。（我是从文本文件中读取的内容，再通过split得到数组，取其中一部分内容赋值excel的单元格中。数据量大时，需要读取几万次内容，每次取几十个数据赋值到单元格中。程序运行时间有点长。）

西瓜9527

Range("A2:A100") = arr(3)-------arr（3）代表的是元素，所以A2:A100肯定是同一个数字

Sub aa()
'定义数组
Dim arr(1 To 200)
'把A1:A200写入数组
For i = 1 To 200
    arr(i) = Cells(i, 1)
Next
'把数组中的3-101写入到B2:B100
j = 2
For i = 3 To 101
    Cells(j, 2) = arr(i)
    j = j + 1
Next
End Sub

maditate

borisexcel 发表于 2019-5-19 12:16
因为需要赋值的单元格很多，每次都只对一个单元格赋值（给cells赋值），程序运行时间比较长。所以想看看能 ...

几万个数组元素中你想每次读取其中的几十个数，说明你在没读取之前应该知道这些将被读取的元素的特征（数组的位置），你完全可以用循环来了读取这部份元素。

西瓜9527

borisexcel 发表于 2019-5-19 12:16
因为需要赋值的单元格很多，每次都只对一个单元格赋值（给cells赋值），程序运行时间比较长。所以想看看能 ...

看了你的新需求，我修改了一下
Sub aa()
'定义数组
Dim arr(1 To 200)
'把A1:A200写入数组
For i = 1 To 200
    arr(i) = Cells(i, 1)
Next
'把arr数组中的3-101写入到brr
Dim brr(1 To 99)
j = 1
For i = 3 To 101
    brr(j) = arr(i)
    j = j + 1
Next
'写入单元格
[B2].Resize(UBound(brr), 1) = Application.Transpose(brr)
End Sub

小花鹿

定义一个新数组，循环把需要的数据赋值给新数组，然后再一次写入单元格

borisexcel

西瓜9527 发表于 2019-5-19 12:27
看了你的新需求，我修改了一下
Sub aa()
'定义数组

搞定了，谢谢！

尝试过程发现，一方面需要使用Transpose转置（如果是给一行单元格赋值就不需要转置）；另一方面是需要新定义一个数组放需要赋值的数（为什么vba不能直接从数组中间某个元素开始取随后的一段内容呢？）

kzg2013

SUB  AAA()
DIM X AS OBJECT
Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "javascript"
arr = Array("aa", "BB", "CC", "DD", "EE")
kk = Join(arr, ",")
s1 = 0 '开始位置
s2 = 2 '结束位置'
x.addcode "function aa(bb){x=bb.split(',').slice(" & s1 & "," & s2 + 1 & ");return x;}"
cc = x.eval("aa('" & kk & "')")
Cells(1, 1).Resize(UBound(Split(cc, ",")) + 1, 1) = Application.Transpose(Split(cc, ","))
END SUB