VBA宏求助 ，为什么执行了只有1万行，明明数据是2000*100的呢

mjchzhl

为什么一下代码执行之后只有1万行数据，A列有2000行，B列有100行  结果应该是有200000才对吧，为什么会这样  求大神解答
还有  如果我想把代码改成时两列字符串也能执行，要怎么改呢 ？
Sub sgzxglc()
Dim i%, j%, arr, brr, x%, crr(), y%, n%
i = [a1].End(4).Row
j = [b1].End(4).Row
arr = Range("a1:a" & i)
brr = Range("b1:b" & j)
ReDim Preserve crr(1 To i * j)
For x = 1 To i
For y = 1 To j
n = n + 1
crr(n) = arr(x, 1) & brr(y, 1)
Next
Next
[e1].Resize(n) = Application.Transpose(crr)
End Sub

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

xyxcc177

在excel中，数组20万个运行不了

lsc900707

Transpose不能超过65536.

mjchzhl

附件在这里

mjchzhl

蓝桥玄霜 发表于 2018-4-7 08:36
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

附件上传了  帮看看

mjchzhl

xyxcc177 发表于 2018-4-7 09:10
在excel中，数组20万个运行不了

那如何解决这个问题呢 就想将一列数据中的每一条与另一列的每一条合并