Question

VBA中使用通配符

Answer 1

可以参考下面的代码：

rg=[a1].currentregion

for a=1 to ubound(rg)

if rg(a,1) like "*牛肉*" then rg(a,2)=”过期”

next

for each a in cells

if a.value like "*牛肉*" then offset(a,0,1).value="过期"

next

扩展资料：

通配符元素优先级规则

1、精确字符 a, \*, \\

2、字符范围 [Aa], [[:digit:]]

3、任意字符 ?

4、重复的精确字符 a+

5、重复的字符范围 [Aa]+, [[:digit:]]+

6、重复的任意字符 ?+

7、任意字符串 *

参考资料来源：百度百科-通配符