[已解决]运行错误1004

hjuy78

有时正常,有时会提示错误1004,类range的pastespecial方法无效
sub 总D()
Dim i
For i = 13 To 24
     Sheets(i).Select
     Range("A1").ClearContents
     Range("A2:IR1061").Select
     Selection.Copy
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Range("B1").Select
Next i
End sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-20 13:39

1. Sub 总D()
   
2.     Dim i
   
3.     For i = 13 To 24
   
4.         Sheets(i).Select
   
5.         Range("A1").ClearContents
   
6.         ActiveSheet.Range("A2:IR1061").Select
   
7.         Selection.Copy
   
8.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.                                                                         :=False, Transpose:=False
   
10.         ActiveSheet.Range("B1").Select
    
11.     Next i
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 总D()
   
2.     Dim i
   
3.     For i = 13 To 24
   
4.         Sheets(i).Select
   
5.         Range("A1").ClearContents
   
6.         ActiveSheet.Range("A2:IR1061").Select
   
7.         Selection.Copy
   
8.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.                                                                         :=False, Transpose:=False
   
10.         ActiveSheet.Range("B1").Select
    
11.     Next i
    
12. End Sub

复制代码