请问这个Array数组如何循环？

shchint

For i = 1 To UBound(arr) '行数循环
    dic(arr(i, 2)) = Array(arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8), 变量1) '3-8列+变量1写入字典
Next


请问红色部分如何写成像下面的这种循环模式？可以实现吗？红色部分应该怎么写啊？请老师指教一下，谢谢


For i = 1 To UBound(arr) '行数循环   
    For j = 3 To 8
        brr = arr(i, j) & ?
    Next
    dic(arr(i, 2)) = Array(brr, 变量1) '3-8列+变量1写入字典
Next

jiangxiaoyun

没必要搞那么复杂，将数组arr的行号写入字典，然后用字典读取数据在arr中的行号，遍历arr取数就可以了。数组也死储存数据的容器，知道行号了，和字典没啥区别。

micch

redim brr(6)
for j = 3 to 8
brr(j-3)=ar(i,j)
next
brr(6)=变量1
dic(key)=brr

不过不建议这么用，可以考虑字典嵌套，如果你觉得这么好理解，当我没说。

shchint

jiangxiaoyun 发表于 2023-3-26 16:53
没必要搞那么复杂，将数组arr的行号写入字典，然后用字典读取数据在arr中的行号，遍历arr取数就可以了。数 ...

我是想如果列数改变了，我直接修改8就行了，而不用一个一个数组的罗列出来了

shchint

micch 发表于 2023-3-26 16:54
redim brr(6)
for j = 3 to 8
brr(j-3)=ar(i,j)

要的就是这个效果，谢谢老师。

perfect131

For i = 1 To UBound(arr) '行数循环
    redim brr(5)
    For j = 3 To 8
        brr(j-3) = arr(i, j)
    Next
    dic(arr(i, 2)) = Array(brr, 变量1) '3-8列+变量1写入字典
Next

shchint

perfect131 发表于 2023-3-26 17:38
For i = 1 To UBound(arr) '行数循环
    redim brr(5)
    For j = 3 To 8

谢谢，已经解决了。前面老师已经写出完整过程了。