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

[Excel VBA]批量删除工作表

熊阿初 • • 代码及教程 • 687 views

其实可以使用全选后反选，或者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

Like (0)
熊阿初的头像熊阿初
0 0
Previous 2022年11月9日
Next 2022年11月9日

相关推荐

发表回复

Please Login to Comment