[已解决]这两句如何合并成一句，并且改成包含而不是等于？

qjsu

If Not I = "汇总" Then
If Not I = "Sheet1" Then

我使用  IF NOT I LIKE "[汇总,Sheet1]" then 总是执行不下去

最佳答案

月排行榜 / 总排行榜

csmctjg

2013-6-6 16:21

IF NOT I LIKE "[汇总,Sheet1]" then
改为：

If Not (I = "汇总" Or I = "Sheet1") Then
或
If InStr("汇总,Sheet1,", I & ",") = 0 Then
或
If UBound(Filter(Array("汇总", "Sheet1"), I)) = -1 Then
等

跳转到最佳答案楼层

qjsu

Sub 工作表重命名()
Dim I
Dim Y
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Sheets
I = sh.Name
IF NOT I LIKE "[汇总,Sheet1]" then
Y = Mid(I, 1, 5)
sh.Name = Y
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

csmctjg

IF NOT I LIKE "[汇总,Sheet1]" then
改为：

If Not (I = "汇总" Or I = "Sheet1") Then
或
If InStr("汇总,Sheet1,", I & ",") = 0 Then
或
If UBound(Filter(Array("汇总", "Sheet1"), I)) = -1 Then
等

1032446692

If Not ( I = "汇总" or I = "Sheet1" ) Then
或者你可以使用正则表达式