复制当前工作表的代码并设置命令按钮

复制内容到剪贴板

代码:

Sub yy()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
j = Val(InputBox("复制表数量:", "", 1))
Cells.Copy
Do
k = k + 1
Sheets.Add: ActiveSheet.Name = k
With Sheets(k)
ActiveSheet.Paste
End With
Loop Until j = k
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

附件

复制.rar(6.98 KB)

2011-8-12 23:28, 下载次数: 0