数组维数的问题

chj6533

请教各位老师：看一下这个问题是出在哪？EXCEL附件中34465行出错。   但用WPS一点问题没有。郁闷！


Option Explicit
Sub 序号()
Dim i, arr(1 To 100000)
        For i = 1 To UBound(arr)
        arr(i) = i
        Next
        [a1].Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)
End Sub

清风竹-

[a1].Resize(UBound(arr), 1) = Application.Transpose(arr)  '试试

yuwd3

Transpose最大行数为65536。

chj6533

yuwd3 发表于 2023-2-19 19:56
Transpose最大行数为65536。

问题是只到3万多啊，，，可WPS可以的

micch

为什么用worksheetfunction，从使用效率看，根据需要定义数组，直接定义二维数组，省去转置就解决了。至于问题出现的原因，不懂

jiangxiaoyun

UBound(arr)   =100000，转置后的数组只有3万多

yuwd3

chj6533 发表于 2023-2-19 20:53
问题是只到3万多啊，，，可WPS可以的

你自己测试一下就知道，把数字改成65536、65537。会出现各种问题。可以说是EXCEL的BUG，WPS可能解决了这个问题。能不用尽量不用这个数函数，直接设置成二维数组。