SUB 批量增加命名工作表()
For L = 1 To 100
Sheets.Add(, Sheets("发票表头")).Name = "发票表" & i
NEXT
END SUB
SUB 批量删除工作表()
Application.DisplayAlerts = 0 ‘’‘关闭提示
On Error Resume Next
X = Worksheets.Count
For i = 1 To X
Worksheets("发票表" & i).Delete
Next
Application.DisplayAlerts = 1
MsgBox ("完成" & X - 3 & "个工作表删除!")
end SUB
VBA中批量新增并命名工作表,删除工作表
最新推荐文章于 2024-07-15 11:07:06 发布