求简化 if 中多个 or

huys · 发表于 2022-12-1 20:10

亲们，下列多个Or如何简化呢？谢谢！
If Cells(i, 1) Like "*医院*" Or Cells(i, 1) Like "*卫生院*" Or Cells(i, 1) Like "*保健院*" Or Cells(i, 1) Like "*疾病预防控制中心*" Then
msgbox "医疗机构"
End If

taller · 发表于 2022-12-2 04:13

这些条件没有可以简化的，like也无法合并，使用正则可能缩短这个判断条件，但是需要几行其他代码，所以没有太大区别

shiruiqiang · 发表于 2022-12-2 07:31

instr(“医院卫生院保健院疾病预防控制中心”，cells(i，1))>0

ykcbf1100 · 发表于 2022-12-2 08:23

具体不太好判断，如果没有异议，可以这样简化一下：
If Cells(i, 1) Like "*院*" Or Cells(i, 1) Like "*控制中心*" Then

huys · 发表于 2022-12-2 08:29

shiruiqiang 发表于 2022-12-2 07:31
instr(“医院卫生院保健院疾病预防控制中心”，cells(i，1))>0

不行呢，结果为空！

DevilW · 发表于 2022-12-2 08:58

汉唐 · 发表于 2022-12-2 18:24

a=Array( "医院","卫生院" , "保健院","疾病预防控制中心" )
for i=....
if Instr(1, cells(i,1).value,a,1) Then
msgbox "医疗机构"
End If
next

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

[求助] 求简化 if 中多个 or

评分