按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，确定！
去试一试吧！！！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024