设置好条件，根据Excel里面的摘要关键字，弄出判定性结果

zpy2 · 发表于 2023-4-20 21:07

沉默的舞台剧发表于 2023-4-20 17:15
谢谢老哥！！这个我研究下来是一种正则表达式

https://club.excelhome.net/forum.php?mod=viewthread&tid=1589889&mobile=正则表达式

zpy2 · 发表于 2023-4-20 21:10

zpy2 发表于 2023-4-20 21:07
https://club.excelhome.net/forum.php?mod=viewthread&tid=1589889&mobile=正则表达式

https://club.excelhome.net/forum.php?mod=viewthread&tid=1660262&fromguid=hot&extra=&mobile

1121228509 · 发表于 2023-4-21 22:45

VBA启用所有宏：

营销 12.rar (19.72 KB, 下载次数: 2)

249773986 · 发表于 2023-4-22 13:44

Sub test1()
Dim reg As Object, ss
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = ".+([\u4E00-\u9FA5]{2,}费).+"
For Each ss In Range("b2", Cells(Rows.Count, 2).End(xlUp))
      If .test(ss) Then
         ss.Offset(0, 1) = .Execute(ss)(0).submatches(0)
      Else
         ss.Offset(0, 1) = "业务招待费"
      End If
Next ss
End With
End Sub

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

[求助] 设置好条件，根据Excel里面的摘要关键字，弄出判定性结果