Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Call DelSheet
Call AddSheet
End Sub
Sub DelSheet()
Dim x
For Each x In Sheets
If x.Name <> "模板" Then x.Delete
Next
End Sub
Sub AddSheet()
Dim i
For i = 1 To 3 '如果不止3个,自行修改
Sheets("模板").Copy after:=Sheets(i)
With Sheets(i + 1)
.Name = "分站" & i
.Shapes("add").Delete
End With
Next i
Sheets("模板").Activate
End Sub
源文件数据2.rar
(33.29 KB, 下载次数: 60)