在excel中如何使用vba命令实现批量删除指定名称的工作表?
1个回答
展开全部
按Alt + F11,双击ThisWorkbook,粘贴下面的代码:
Sub ouyangff()
On Error Resume Next
Application.DisplayAlerts = False
For i = 2 To [g65536].End(3).Row
a$ = Cells(i, 7)
Sheets(a$).Delete
Next
Application.DisplayAlerts = True
End Sub
按Alt + F11,回到你的画面所示的“表”中!
按Alt + F8,确定!
去试一试吧!!!
Sub ouyangff()
On Error Resume Next
Application.DisplayAlerts = False
For i = 2 To [g65536].End(3).Row
a$ = Cells(i, 7)
Sheets(a$).Delete
Next
Application.DisplayAlerts = True
End Sub
按Alt + F11,回到你的画面所示的“表”中!
按Alt + F8,确定!
去试一试吧!!!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询