如何用数组表示多个工作表名

tudarong · 发表于 2018-9-28 21:39

因为想统计紫色标注的工作表数据（有很多个），但是又不能删掉另外4个工作表。
想通过遍历工作表的方法来统计紫色的工作表数据，
下记代码调试出错，请路过的大神指正下，谢谢！

dim Sht As Worksheet
For Each Sht In Worksheets
If Sht.Name <> Array("统计", "模版", "计划","Sheet2") Then ' 这句提示调试错误
(此处省略代码)
End If
Next

朱荣兴 · 发表于 2018-9-28 21:48

提示: 作者被禁止或删除内容自动屏蔽

lsc900707 · 发表于 2018-9-28 21:53

要选定的工作表名都是数字,那就：
if IsNumeric(sht.name) then

tudarong · 发表于 2018-9-28 21:58

朱荣兴发表于 2018-9-28 21:48
分开来使用and连接

使用and连接，这句代码看起来很长，还有简便的方法吗

tudarong · 发表于 2018-9-28 21:59

lsc900707 发表于 2018-9-28 21:53
要选定的工作表名都是数字,那就：
if IsNumeric(sht.name) then

要选定的工作表名不一定全是数字的

bjjdghyf · 发表于 2018-9-28 22:17

Sub test()
For Each sht In Worksheets
      If InStr("统计,模版,计划,Sheet2", sht.Name) = 0 Then
         MsgBox sht.Name
      End If
Next
End Sub

tudarong · 发表于 2018-9-28 22:23

bjjdghyf 发表于 2018-9-28 22:17
Sub test()
For Each sht In Worksheets
If InStr("统计,模版,计划,Sheet2", sht.Name) = 0 ...

这方法不错，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 如何用数组表示多个工作表名

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-28 21:48 来自手机 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报