非常急~excel 宏，运行错误9，下标越界.

Question

Sub Macro3()
'
' Macro3 Macro
' 宏由 MC SYSTEM 录制，时间: 2008-12-10
'
Sheets("不可删").Select
Range("A1:F34").Select
Selection.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
End Sub

Answer 1

我试过这个宏了，能用。
下标越界的原因应该是你的excel文档中没有“不可删”这个工作表。更改工作表中的名称为不可删或者更改宏中“不可删”为数据源工作表的名称，比如“Sheet1”。

Answer 2

Sub Macro3()
'
' Macro3 Macro
' 宏由 MC SYSTEM 录制，时间: 2008-12-10
'
Sheets("不可删").Range("A1:F34").Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
End Sub

Answer 3

56666666666666

Answer 4

Sheets(