物联网软件开发公司 VBA批量删除使命簿中除指定使命表之外的通盘使命表
念念要用vba删除使命簿中除指定使命表之外的通盘使命表物联网软件开发公司，不错使用以下代码：
上期前区三区比为3：2：0，第1、2区表现活跃，最近10期前区三区比为20：16：14，第3区出号较冷。
奇偶比分析：近十期奇偶比为26：24，奇数码出现概率较热。本期看好奇数号码出现概率走高，参考奇偶比4：1。
小程序开发Sub 删除指定使命表之外的通盘使命表() Dim ws As Worksheet Application.DisplayAlerts = False '屏蔽告戒框的清楚，一般放在开头 For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then '要是检测的表名均不等于设定的使命表 ws.Delete '删除使命表 End If Next Application.DisplayAlerts = True '收复告戒框的清楚，一般放在收场 'False代表不清楚，true代表收复，两个应该成对出现 End Sub
要是念念要保留的指定使命表有多个，不错在IF条目中加入AND，代码如下：
Sub 删除多个指定使命表之外的通盘使命表() Dim ws As Worksheet Application.DisplayAlerts = False '屏蔽告戒框的清楚，一般放在开头 For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then '要是检测的表名均不等于设定的使命表 ws.Delete '删除使命表 End If Next Application.DisplayAlerts = True '收复告戒框的清楚，一般放在收场 'False代表不清楚，true代表收复，物联网app开发两个应该成对出现 End Sub
以上代码指定保留的使命表不错不一定骨子存在（也即是说不错加入一些仅仅可能存在的表，但惟有存在就要保留），但表较多时，以上代码的IF就要拼接许多个and，代码会很长况兼容易写错，念念要管制这个问题，不错将要保留的使命表名放进一个数组中，通过match函数判断使命簿中的使命表名是否不在数组中再删除（match函数用法规子详见我的著述【VBA判断元素是否在数组中】），优化后的代码如下：
Sub 删除多个指定使命表之外的通盘使命表2()
Dim ws As Worksheet
arr = Array("Sheet1", "Sheet2", "Sheet3") '界说要保留的使命表名
Application.DisplayAlerts = False '屏蔽告戒框的清楚，一般放在开头
For Each ws In ThisWorkbook.Worksheets
a = Application.Match(ws.Name, arr, 0) '检查现时使命表名是否在数组中
If IsError(a) Then '要是检测的表名不存在数组中
ws.Delete '删除使命表
End If
Next
Application.DisplayAlerts = True '收复告戒框的清楚，一般放在收场
'False代表不清楚，true代表收复，两个应该成对出现
End Sub同理，以上代码的条目反过来用就不错终了“删除多个指命称号的使命表”（用法规子详见我的著述【vba删除多个指命称号的使命表】）。
以上内容对您有匡助不错共享或转藏，幸免以后找不到。念念要了解更多VBA联系学问物联网软件开发公司，接待到http://moqingyan.360doc.com我的个东谈主藏书楼稽查。
本站仅提供存储职业，通盘内容均由用户发布，如发现存害或侵权内容，请点击举报。