Sub xx()a = InputBox("请输入要复制的表格数目")For i = 1 To aSheet1.Copy after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Visible = TrueNextEnd Sub