数组传递的问题

headche119

各位大佬需求如下

我有2个数组  想把arr 数组 复制到drr 数组， 直接循环失败了，用CRR 动态数组也失败了  求指教怎么复制ARR 的数据到drr  因为我最终的需求是把3个数组的数据合并到drr 数组  第一个数组ARR 赋值就卡住了


Dim drr(1 To 1500, 1 To 40)
dim arr ,crr
arr = sh2.[a4].CurrentRegion


m = UBound(arr, 1)
a = UBound(arr, 2)

ReDim crr(1 To UBound(arr, 1), 1 To UBound(arr, 2))

For j = 1 To UBound(arr, 1)
   For k = 1 To UBound(arr, 2)
   
   crr(i, k) = arr(i, k)
   drr(i, k) = crr(i, k)
   
   Next
   Next

gwjkkkkk

arr取值是有效范围，不知道上下标值多少，drr已固定，而循环赋值是用arr的上下标进行，这个上下标值是否大于drr的上下标值，大致只能这样跟你说一下。。。

不知道为什么

headche119

不知道为什么 发表于 2023-6-8 21:31

是数组的扩展啊   但是没找到到底要怎么写。直接循环提示DRR 是空的  arr 赋值不过去

边缘码农

代码中问题很多，建议楼主学习一下楼上的图，然后自己测试改进。
这个问题不是个难题。