大家看看这是不是2007的BUG

老伙计2008

EXCEL2007支持104万余行，可是下面的过程中横线上面的代码可以执行，下面的代码不能执行。
有能不用拆分数组的办法解决吗？

1. Sub jjj()
   
2. Dim iCount() As Byte, i&
   
3. ReDim iCount(1 To 65536)
   
4. For i = 1 To 65536
   
5.     iCount(i) = 1
   
6. Next
   
7. Cells(1, 1).Resize(65536, 1) = Application.Transpose(iCount)
   
8. '============================================================
   
9. ReDim iCount(1 To 65537)
   
10. For i = 1 To 65537
    
11.     iCount(i) = 1
    
12. Next
    
13. Cells(2, 1).Resize(65537, 1) = Application.Transpose(iCount)
    
14. End Sub

复制代码

[ 本帖最后由 老伙计2008 于 2009-12-24 19:28 编辑 ]

lb_bn

transpose自身有个限制。

老伙计2008

原帖由 lb_bn 于 2009-12-24 19:35 发表
transpose自身有个限制。

2007的帮助中没有说明有限制


Excel 开发人员参考
WorksheetFunction.Transpose 方法

返回转置单元格区域，即将一行单元格区域转置成一列单元格区域，反之亦然。在行列数分别与数组 （数组：用于建立可生成多个结果或可对在行和列中排列的一组参数进行运算的单个公式。数组区域共用一个公式；数组常量是用作参数的一组常量。）的行列数相同的区域中，必须将 TRANSPOSE 输入为数组公式 （数组公式：数组公式对一组或多组值执行多重计算，并返回一个或多个结果。数组公式括于大括号 ({ }) 中。按 Ctrl+Shift+Enter 可以输入数组公式。）。使用 TRANSPOSE 可在工作表中转置数组的垂直和水平方向。
语法

表达式.Transpose(Arg1)

表达式   一个代表 WorksheetFunction 对象的变量。

参数

名称 必选/可选 数据类型 描述
Arg1 必选 Variant Array - 要进行转置的工作表中的单元格数组或区域。所谓数组的转置就是，将数组的第一行作为新数组的第一列，将数组的第二行作为新数组的第二列，依此类推。

返回值
Variant

老伙计2008

试了一下，改变一下数据类型，不使用Transpose就可以用了，只要不是Byte类型就可以

1. Sub jjj()
   
2. Dim iCount() As Long, i&
   
3. 
   
4. ReDim iCount(1 To 65537)
   
5. For i = 1 To 65537
   
6.     iCount(i) = 1
   
7. Next
   
8. Cells(2, 1).Resize(65537, 1) = iCount
   
9. End Sub

复制代码

lb_bn

http://support.microsoft.com/default.aspx?scid=kb;en-us;177991

具体情况我不太清楚。

lb_bn

这个只是赋了数组的第一个值。

老伙计2008

原帖由 lb_bn 于 2009-12-24 19:57 发表
这个只是赋了数组的第一个值。

你可以试一下，会全部赋值。
我原以为下面 是对的
对于1维数组，当指定的RANG为1行，则VBA会认为数组为1行；当指定的RANG为1列，则VBA会认为数组为1列

[ 本帖最后由 老伙计2008 于 2009-12-24 21:02 编辑 ]

lb_bn

我是说所有赋的值都是数组的第一个值。
而不是数组的所有值。
相当于
区域=1

老伙计2008

原帖由 lb_bn 于 2009-12-24 20:31 发表
我是说所有赋的值都是数组的第一个值。
而不是数组的所有值。
相当于
区域=1

还真是这样，好险啊 ，

lb_bn

楼主在帮人写工程？