[已解决][VBA纠错]运行时错误1004，应用程序定义或对象定义错误

kjhsxt

请教斑竹，以下代码只有一个目的，实现多工作表指定单元格区域的内容复制，复制到目标工作表“汇总”，但是这么简单的代码，一运行就报错如下：“运行时错误1004，应用程序定义或对象定义错误”

在另外一张空表运行代码，N=2时可以成功一次，但N步进1后（N=3），就再次报错，请斑竹帮忙指出错误所在。

Sub 汇总()
Dim N As Integer, I As Integer, J As Integer
    If [F4] <> "" Then Range("F4:L16").ClearContents
For N = 2 To 4
    I = 8
    J = N + 4
    Sheets(N).Range(Cells(4, I), Cells(16, I)).Copy    ’每次运行到这一句就报错，提示信息：“运行时错误1004，应用程序定义或对象定义错误”
    'Debug.Print Sheets(N).Name
    Cells(4, J).Select
    ActiveSheet.Paste
   
Next N
End Sub
多工作表内容汇总.rar (10.16 KB, 下载次数: 51)

2011-10-31 17:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-31 17:42

1. Sub 汇总()
   
2. Dim N As Integer, I As Integer, J As Integer, mm As String
   
3. If ActiveSheet.Name <> "汇总" Then Exit Sub
   
4.     If [F4] <> "" Then Range("F4:L16").ClearContents
   
5. For N = 2 To 4
   
6.     I = 8
   
7.     J = N + 4
   
8.     With Sheets(N)
   
9.     .Range(.Cells(4, I), .Cells(16, I)).Copy Cells(4, J)
   
10.     End With
    
11.     'Debug.Print Sheets(N).Name
    
12. Next N
    
13. End Sub

复制代码

优化你的代码

跳转到最佳答案楼层

mxg825

Sheets(N).Range(Sheets(N).Cells(4, I), Sheets(N).Cells(16, I)).Copy

mxg825

1. Sub 汇总()
   
2. Dim N As Integer, I As Integer, J As Integer, mm As String
   
3. If ActiveSheet.Name <> "汇总" Then Exit Sub
   
4.     If [F4] <> "" Then Range("F4:L16").ClearContents
   
5. For N = 2 To 4
   
6.     I = 8
   
7.     J = N + 4
   
8.     With Sheets(N)
   
9.     .Range(.Cells(4, I), .Cells(16, I)).Copy Cells(4, J)
   
10.     End With
    
11.     'Debug.Print Sheets(N).Name
    
12. Next N
    
13. End Sub

复制代码

优化你的代码

staer001

原来是这样子啊。怪不得的打开两个工作薄，CELLS()里的内容会 不同呢。 原为RANGE（CELLS（），CELLS（））里的CELLS也要指定表名的。{:011:}{:091:}

staer001

感谢楼主提问，我也正为这样的问题困惑呢。{:091:}{:091:}

陆竹

mxg825 发表于 2011-10-31 17:38
Sheets(N).Range(Sheets(N).Cells(4, I), Sheets(N).Cells(16, I)).Copy

真是太强大了，原来RANGE（CELLS（），CELLS（））里的CELLS也要指定表名的。谢谢大家，学习了。