好吧问答库 > 求一段VBA代码

求一段VBA代码

Private Sub CommandButton1_Click()Worksheets("数字组模板").Copy After:=Sheets(Sheets.Count)End Sub以上代码是我点一个按钮就自动复制名字为 “数字组模板”这个SHEET我想改变下代码实现如下功能：点这个按钮后弹出一个窗口要求输入复制后SHEET的名字《也就是重命名一下》然后复制数字组模板”这个SHEET或者先复制然后跳出窗口要求输入复制后SHEET的名字《也就是重命名一下》也行求求高手啊！！在线等

2026年09月27日 23:26

有1个网友回答

网友（1）：

Private Sub CommandButton1_Click()
Worksheets("数字组模板").Copy After:=Sheets(Sheets.Count)
Dim s As String
s = InputBox("请输入表名！")
ActiveSheet.Name = s
End Sub