|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
EXCEL2007支持104万余行,可是下面的过程中横线上面的代码可以执行,下面的代码不能执行。
有能不用拆分数组的办法解决吗?- Sub jjj()
- Dim iCount() As Byte, i&
- ReDim iCount(1 To 65536)
- For i = 1 To 65536
- iCount(i) = 1
- Next
- Cells(1, 1).Resize(65536, 1) = Application.Transpose(iCount)
- '============================================================
- ReDim iCount(1 To 65537)
- For i = 1 To 65537
- iCount(i) = 1
- Next
- Cells(2, 1).Resize(65537, 1) = Application.Transpose(iCount)
- End Sub
复制代码
[ 本帖最后由 老伙计2008 于 2009-12-24 19:28 编辑 ] |
|