[英]Excel VBA Macro: How do I delete all sheets except one sheet?
具体来说,我想删除除工作表的代号Sheet6以外的所有工作表,但是我似乎无法使我的代码正常工作。
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws <> ThisWorkbook.Sheet6 Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
尝试
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Sheet6" Then ws.Delete
Next
Application.DisplayAlerts = True
这是没有变种的替代品。
application.displayalerts = false
with ThisWorkbook
if .worksheets("sheet6").index > 1 then _
.worksheets("sheet6").move before:=.sheets(1)
do while .sheets.count > 1
.sheets(2).delete
loop
end with
application.displayalerts = true
删除时,请始终向后迭代(尽管Jeeped的答案有不同的解决方法)。
Dim iterator as long
Application.DisplayAlerts = False
For iterator = ThisWorkbook.Worksheets.Count To 1 Step -1
With ThisWorkbook.Worksheets(iterator)
if .CodeName <> "Sheet6" Then .Delete
End With
Next iterator
Application.DisplayAlerts = True
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.