提取10%的工作表

作者：绿色风分类：时间：2022-08-18 浏览：65

楼主
syz105729913

实际工作中有的需要提取工作薄中所有表总数的10%出来，比如工程上的监理需要抽取施工单位报告数的10%出来作为见证报告
这样用以下代码就可以轻松的完成了

Sub AA()
Dim x As Long, a%
a = InputBox("输入1-9之间的数")
For x = Sheets.Count To 1 Step -1
If Right(Sheets(x).Name, 3) Like IIf(Sheets(x).Name Like "*-*", "" & a & "*", "*" & a & "") Then
Else
Application.DisplayAlerts = False
Sheets(x).Delete
End If
Next x
Application.DisplayAlerts = True
End Sub

测试文件

Book1.rar

2楼
xyf2210

学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表