数组扩容的语句请教

天地一相

感谢帮助！初始数组定义为1行，34列。伴随着 n =n+1 。我想在保留已有数据的前提下对数组持续扩大1行，列不变。如何写呢？谢谢。我尝试写的不对，贴出来请指教。

1.   brr = Sheet1.Range(Sheet1.Cells(2, 1), Sheet1.Cells(2, 34))
   
2.   n = n + 1
   
3.   ReDim Preserve crr(1 To n + UBound(brr), 1 To UBound(brr, 2))

复制代码

DevilW

天地一相

DevilW 发表于 2023-7-6 11:22

谢谢，迷迷糊糊不明白，反正那就是我的情况搞不成了。先放弃，一直想着用数组法来提速，折腾好久了，没取到可喜的结果。

ovxyz

非要这样扩容的话，只能转置以后扩容，再转置回去。

笨鸟飞不高

应该还是循环取值吧

liulang0808

brr = Sheet1.Range(Sheet1.Cells(2, 1), Sheet1.Cells(3, 34))

天地一相

liulang0808 发表于 2023-7-6 11:49
brr = Sheet1.Range(Sheet1.Cells(2, 1), Sheet1.Cells(3, 34))

谢谢，这样可能不行吧。我之前是直接定义一个超大的数组，持续写入数据。发现太慢了。才开始琢磨不断扩容，扩容还得保留已经写进入的数据。估计数组法行不通，折腾这些天，反复测试，速度没改善。这要是数组扩容搞成而测试速度没提高，估计就得放弃了。

天地一相

ovxyz 发表于 2023-7-6 11:47
非要这样扩容的话，只能转置以后扩容，再转置回去。

谢谢，考虑过，我现在是求速度呢，转置一是速度大概率不行。而是，我行数会几十万，意味着没转置前列数就得几十万，这行吗

于箱长

那尝试一下SQL会不会快呢，别问我（我不会），我只是提个建议

wodewan

数组是连续的内存空间，Presever本质应该也是开辟新空间，循环赋值，所以循环是数组扩容最直接和有效的方法。个人意见，仅供参考。