|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
代码存在两个问题:
1、ReDim Preserve 只能改变多维数组的最后一个维度:
代码中的这一句:ReDim Preserve arr(1 To i + UBound(grr), 1 To 6) 不能这么用
建议在For each 之前把arr定义的大一些,比如说1000行: redim arr(1 to 1000, 1 to 6)
2、代码中给arr()赋值的这一段也需要改,要不只能赋值给arr的开始几行数据:改成这样:
在代码开头的For each循环之前加一句 i = 1 然后把赋值那一段改成下面这样:
For x = 2 To UBound(grr)
arr(i, 1) = grr(x, xh1)
arr(i, 2) = grr(x, th1)
arr(i, 3) = grr(x, mc1)
arr(i, 4) = grr(x, ph1)
arr(i, 5) = grr(x, gg1)
arr(i, 6) = grr(x, cd1)
i = i + 1
Next x
|
|