[已解决]高手帮忙

入伍小兵

想通过宏一次实现删除Sheet5后面的表格，也就是只保留Sheet1、Sheet2、Sheet3、Sheet4，其他有多少表格删除多少表格

见附件：

qljF7q95.rar (1.61 KB, 下载次数: 0)

2010-3-20 14:15 上传

点击文件名下载附件
高手帮忙

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-20 15:06

Sub test()
Dim i%
Application.DisplayAlerts = False
For i = Worksheets.Count To 5 Step -1
    Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

fjmxwrs

比如你有1-8个表格，删除5.6.7.8四张表代码如下：

Sheets(Array("Sheet5", "Sheet6", "Sheet7", "Sheet8")).Select
    Sheets("Sheet8").Activate
    ActiveWindow.SelectedSheets.Delete

bbwsj

不用宏

点Sheet5的表标签，按住SHIFT，再按最后一个表的标签，就会形成一个工作表组

然后一起删除表，就OK了

[此贴子已经被作者于2010-3-20 14:33:04编辑过]

枯禅

QUOTE:

以下是引用bbwsj在2010-3-20 14:32:00的发言：

不用宏

点Sheet5的表标签，按住SHIFT，再按最后一个表的标签，就会形成一个工作表组

然后一起删除表，就OK了

 

简单实用才是硬道理[em01]

入伍小兵

QUOTE:

以下是引用fjmxwrs在2010-3-20 14:32:00的发言：

比如你有1-8个表格，删除5.6.7.8四张表代码如下：

Sheets(Array("Sheet5", "Sheet6", "Sheet7", "Sheet8")).Select
    Sheets("Sheet8").Activate
    ActiveWindow.SelectedSheets.Delete

假如有30或者40个表，我只想保留前面5个或者4个，用宏如何实现？

入伍小兵

我现要就想用宏，因为有许多表格，我数据用完后想保留需要的数据，同时文件也要减肥啊。

枯禅

Sub test()
Dim i%
Application.DisplayAlerts = False
For i = Worksheets.Count To 5 Step -1
    Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

zsd5237

学习[em02][em02]