复制模板表多次与button

在我的模板上，我想单击一个button，询问我要多less次生成副本，然后生成副本。

我正在尝试以下内容：

Sheets.add after=activeSheet 

要么

 Cells.Select Selection.Copy Sheets("Sheet1").Select Application.CutCopyMode = False Sheets("Sheet1").Copy After:=Sheets(2) 

Answer 1

也许这是你想要做的？

 Option Explicit Private Sub CommandButton1_Click() Dim Sht As Worksheet Dim Num% Dim i% Set Sht = ThisWorkbook.Sheets("Sheet1") Num = Application.InputBox("Enter a Number", Type:=1) For i = 1 To Num Sht.Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = i Next i End Sub 

右键单击您的ActiveX控件button并粘贴代码

Application.InputBox方法（Excel）

_{显示用户input的对话框。 返回在对话框中input的信息。
可以在Type参数中传递的值可以是一个值或一个值的总和。
例如，对于可以接受文本和数字的input框， set Type to 1 + 2.}

 +-------+-------------------------------------+ | Value | Meaning | +-------+-------------------------------------+ | 0 | A formula | | 1 | A number | | 2 | Text (a string) | | 4 | A logical value (True or False) | | 8 | A cell reference, as a Range object | | 16 | An error value, such as #N/A | | 64 | An array of values | +-------+-------------------------------------+