[已解决]求保留一个工作薄的2个工作表的方法？

eikok

求保留一个工作薄的2个工作表的方法？
工作表的名称是【高三文综】【高三理综】

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-26 12:32

1. Sub Macro1()
   
2. Application.DisplayAlerts = False
   
3. For i = Sheets.Count To 1 Step -1
   
4.     If Not Sheets(i).Name Like "高三*" Then Sheets(i).Delete
   
5. Next
   
6. Application.DisplayAlerts = True
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

我心飞翔410

看不太明白嘛  意思是只要这两个在就行了 其他删除掉？
自己添加个模块
Sub shanchu()
Dim sh As Worksheet
  Application.DisplayAlerts = False
   For Each sh In Sheets
    If Not (sh.Name = "高三理综" Or sh.Name = "高三文综") Then sh.Delete
   Next
  Application.DisplayAlerts = True
End Sub

qh8600

求按工作表名称保留工作表的方法.rar (7.52 KB, 下载次数: 3)

2014-3-26 10:56 上传

点击文件名下载附件
运行宏 删除

dsmch

1. Sub Macro1()
   
2. Application.DisplayAlerts = False
   
3. For i = Sheets.Count To 1 Step -1
   
4.     If Not Sheets(i).Name Like "高三*" Then Sheets(i).Delete
   
5. Next
   
6. Application.DisplayAlerts = True
   
7. End Sub
   

复制代码

eikok

qh8600 发表于 2014-3-26 10:57
运行宏 删除

多谢了啊