为何工作簿中正好有张表65536行就不会总了呢？

棋行天下黄

Sub test()
On Error Resume Next
Dim i As Integer
Rows("2:1048576").ClearContents
With ThisWorkbook.Sheets(1)
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder(ThisWorkbook.Path)
For Each f In ff.Files
  If Not f.Name Like "*" & ThisWorkbook.Name & "*" Then
     Workbooks.Open f
    For i = 1 To Sheets.Count

    Sheets(i).Select
     tr = .[n1048576].End(xlUp).Row + 1

    ActiveSheet.UsedRange.Copy .Range("b" & tr)
    Next i

    ActiveWorkbook.Close False
  End If
Next f




End With

End Sub
工作簿是03版的EXCELL，宏是2010版，工作簿中有张表正好是65536行，那个表就没汇总粘贴，非要删掉最好一行才行，最后汇总到13万条，就差那65536条，是何原因，程序如何改写？附件太大60M不能上传。

qcw811206

Rows("2:1048576").ClearContents
在2003 能执行吗？执行不了啊
On Error Resume Next去掉再运行

qcw811206

再者 2003最多65536行

xuyouxm

2003版限制了最大行数为65536行，所以不行哦。

棋行天下黄

qcw811206 发表于 2013-10-19 14:30
Rows("2:1048576").ClearContents
在2003 能执行吗？执行不了啊
On Error Resume Next去掉再运行

宏是2010的excell,既支持1048576条

棋行天下黄

xuyouxm 发表于 2013-10-19 14:39
2003版限制了最大行数为65536行，所以不行哦。

解答不对呀，我的宏所在的EXCELL是2010的，支持1048576条呀

棋行天下黄

qcw811206 发表于 2013-10-19 14:32
再者 2003最多65536行

解答不对，我是张贴到2010上，支持1048576条的

xuyouxm

棋行天下黄 发表于 2013-10-19 17:16
解答不对，我是张贴到2010上，支持1048576条的

贴上去的可能不行吧，或者是要改代码重新修改了。

棋行天下黄

正确答案 分两次复制

普通浏览复制代码

• Sub test()
•     On Error Resume Next
•     Dim i As Integer, rng As Range
•     Rows("2:1048576").ClearContents
•     With ThisWorkbook.Sheets(1)
•         Set fso = CreateObject("scripting.filesystemobject")
•         Set ff = fso.getfolder(ThisWorkbook.Path)
•         For Each f In ff.Files
•             If Not f.Name Like "*" & ThisWorkbook.Name & "*" Then
•             Workbooks.Open f
•                 For i = 1 To Sheets.Count
•                     tr = .[n1048576].End(xlUp).Row + 1
•                     Set rng = Sheets(i).UsedRange
•                     If rng.Rows.Count < 65536 Then
•                         rng.Copy .Range("b" & tr)
•                     Else
•                         rng.Resize(65535).Copy .Range("b" & tr)
•                         rng.Rows(65536).Copy .Range("b" & tr + 65535)
•                     End If
•                 Next i
•                 ActiveWorkbook.Close False
•             End If
•         Next f
•     End With
• End Sub