1. 熊阿初知识百货铺 | 猫主子的成长首页
  2. 代码及教程

[Excel VBA]批量删除工作表

熊阿初 • • 代码及教程 • 阅读 474

其实可以使用全选后反选，或者shift范围选的方式来批量删除工作表。
不过代码还是记录一下。
Do While aa > 2代表每删除一个sheet，就统计一次sheets.count，直到这个数字不大于2


Private Sub CommandButton3_Click()
Dim aa
Dim tip
tip = MsgBox("将会删除拆分出来的工作表，仅保留汇总表页", vbOKCancel)
If tip <> 1 Then
Exit Sub
End If
aa = Sheets.Count
Do While aa > 2
    aa = Sheets.Count
    Application.DisplayAlerts = False
    Sheets(aa).Delete
Loop
MsgBox ("批量删除工作表完成。")
End Sub

原创文章，作者：熊阿初，如若转载，请注明出处：https://www.guofc.com/365.html

赞 (0)
熊阿初熊阿初
0 0
上一篇 2022年11月9日
下一篇 2022年11月9日

相关推荐

发表回复

登录后才能评论