您现在的位置是:首页 > Excel技巧>excel vba动态删除工作表
excel vba 删除工作表-excel vba动态删除工作表
发布于2022-04-150人已围观
在excel工作簿中，删除工作表很简单，只需要右键-删除即可。
但是有时我们希望通过动态输入具体的工作表名，删除该工作表。如下代码：
Sub vba删除工作表()
Dim ws As Worksheet
Dim str As String
str = Application.InputBox("输入需要删除的工作表：", "删除工作表", "sheet1")
On Error GoTo err
Set ws = Worksheets(str)
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit Sub
err:
MsgBox "您删除的工作表不存在！"
End Sub
运行代码，输入工作表名即可删除工作表，如果工作表不存在，则提示错误！
- 上篇文章：excel vba锁定单元格
- 下篇文章：excel vba统计选定区域的非空单元格数
相关文章
文章评论
共0条评论
- 这篇文章还没有收到评论，赶紧来抢沙发吧~