EXCEL 如果把第一个表隐藏掉 用什么办法可以 复制创建整个表 有图!!!!

2025-02-24 01:19:39
推荐回答(1个)
回答1:

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