《别怕，excel VBA其实很简单》内容错误

左手跳舞

我买的是第二版《别怕，excel VBA其实很简单》
最后一页（313页）7.5.5 合理使用数组
我用excel2019 照着书上的代码写的，结果从34465行开始显示的是#N/A，这是为什么
我比对了几遍代码，除了MSGBOX里的代码我少了一点，其余的没变。

谁能帮我看看

ggsmart

因为早期Excel的表格只有65536行，所以TRANSPOSE函数只能转置65536行数据，后来改版后虽然表格行数增加到1048576行了，但这个函数能转置的行数好像没有改变。

这个例子中用它来转置100000行数据，最后部分的结果是错误值，应该就是这个原因。

当时写代码时一下子没想起来，把数字弄大了，误导了大家，抱歉！

liulang0808

Transpose 貌似支撑转置65536行数据吧
楼主不用纠结这个，明白意图就好了
建议修改成10000测试吧

deadzlq

试试这个（原因是Transpose引起，不转就行，同结构丢回去）

1. Sub InputArr()
   
2.     Dim arr&(1 To 100000, 0), sTime
   
3.     sTime = Timer
   
4.     For i = 1 To 100000
   
5.         arr(i, 0) = i
   
6.     Next
   
7.     Cells(1).Resize(100000, 1) = arr
   
8.     Debug.Print Format(Timer - sTime, "0.000")
   
9. End Sub

复制代码

左手跳舞

谢谢各位的回答。如果说是transpose引起，只能转65536行数据，可是我这里是从第34465行就出错了。我用的是EXCEL2019.

鱼不好吃

类似的写法，10w*1的数组transpose到表格，也是从34465行也始错误。mark一下

setnew

新冠病毒厉害，过年在家就把Excel VBA的书看了一下，第二版最后的示例的确有问题，在Excel 2007/2010/2013/office 365个人版都试了，Excel 2007/2010/2013 直接蹦出运行时错误 "类型不匹配“， excel 2016是可以运行，但是如楼主所说在第34465单元格就是"#N/A"，用debug.print 或者将数组arr中的arr(34465)到arr(100000)循环读出来，写到别的列是ok的，看起来是transpose搞不了。这个也算把这个问题理解了。

Dim j As Long
    For j = 34465 To 100000
        Cells(j, "G").Value = arr(j)
    Next j