批量删除指定工作表名称以外的所有工作表

rbq555

请教各位老师：
假如我要在本工作薄中删除，指定工作表名称以外的所有工作表。
或是在两个表中间，即“清单汇总”之后和“报废物资”之前的所有工作表。
（有好几十个表要经常的删除）谢谢！

yygpd500

1. Sub 删除工作表()
   
2.     Dim theSht As Object
   
3.     Application.DisplayAlerts = False
   
4.     For Each theSht In ThisWorkbook.Sheets
   
5.         With theSht
   
6.             If .Name <> "清单汇总" And .Name <> "报废物资" Then
   
7.                 .Delete
   
8.             End If
   
9.         End With
   
10.     Next theSht
    
11.     Application.DisplayAlerts = True
    
12. End Sub
    

复制代码

rbq555

yygpd500 发表于 2012-8-25 13:01

yygpd500 老师：您好！
是我没有表达清楚，能够批量删除工作表了。但是把其他十个表也给一起删除了，其他十个表是在“清单汇总”之前的位置，名称分别为“记录表”、“清单”、“封面”......等。这个代码怎么修改？
谢谢了！

yygpd500

rbq555 发表于 2012-8-25 13:20
yygpd500 老师：您好！
是我没有表达清楚，能够批量删除工作表了。但是把其他十个表也给一起删除了，其他 ...

以相对位置确认工作表以删除的方法极不可靠，要是有人不知就里地移动了工作表位置呢？(说不准哪天你自个儿也会这样)

另：代码可以改写，但上述原因会使代码运行产生隐患，还是不写了吧。

rbq555

yygpd500 发表于 2012-8-25 13:46
以相对位置确认工作表以删除的方法极不可靠，要是有人不知就里地移动了工作表位置呢？(说不准哪天你自个儿 ...

老师：您好！
这个是工作模板，一般是不会变动了。添加的工作表始终在这两表之间。
还是麻烦老师把代码改一下，我是怎么弄也搞不定。谢谢你的帮助！

yygpd500

rbq555 发表于 2012-8-25 14:01
老师：您好！
这个是工作模板，一般是不会变动了。添加的工作表始终在这两表之间。
还是麻烦老师把代码 ...

好吧，只要你明白我说的，往后运行代码心中有数就成了。代码的更改要等会，因为我要整清思路，所以没那么快。

rbq555

yygpd500 发表于 2012-8-25 14:05
好吧，只要你明白我说的，往后运行代码心中有数就成了。代码的更改要等会，因为我要整清思路，所以没那么 ...

多谢了！！！

醉舞街头

把要删的表做成工作组,一次性删除,比用VBA靠谱

yygpd500

1. Sub 删除工作表()
   
2.     Dim iLocation As Integer, jLocation As Integer, i As Integer
   
3.     iLocation = Sheets("清单汇总").Index
   
4.     jLocation = Sheets("报废物资").Index
   
5.     For i = jLocation - 1 To iLocation + 1 Step -1
   
6.         Sheets(i).Move after:=Sheets(Sheets.Count)
   
7.     Next i
   
8.     Application.DisplayAlerts = False
   
9.     For i = 1 To jLocation - iLocation - 1
   
10.         Sheets(Sheets.Count).Delete
    
11.     Next i
    
12.     Application.DisplayAlerts = True
    
13. End Sub
    

复制代码

rbq555

yygpd500 发表于 2012-8-25 14:37

问题解决了。多谢老师的热心帮助！谢谢！