我想把Excel的一个文件夹建立副本到另一个Excel表格里，建立副本里面没

发布网友发布时间：2022-04-30 14:24

共1个回答

热心网友时间：2023-10-05 13:48

Sub 建立当前工作表副本()
Dim num, sht As Object
Do
num = InputBox("建立副本数量：")
If num + Worksheets.Count > 256 Then
MsgBox "输入数字超出excel范围，请重新输入！"
ElseIf Int(num) <> num And num < 0 Then
MsgBox "请输入正整数！"
Else
Exit Do
End If
Loop
Set sht = ActiveSheet
For I = 1 To num
sht.Copy After:=Worksheets(Worksheets.Count)
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com