VBA Like Function

Question

基本上我的代码工作方式是将来自Outlook的传入电子邮件主题与Excel中的列表列进行比较 - 据称是那些现有的电子邮件.如果传入电子邮件与任何记录匹配,则它在Excel中显示值.但是,我注意到,如果Excel中的数据包含#标签(#)值,即使传入的电子邮件与Excel中的电子邮件不同,代码也会将其标记为匹配.

If emlSubj Like "*" & strSubj & "*" Then
Debug.Print strSubj

代码有问题还是LIKE功能的限制？

Answer 1

请改用InStr函数.它返回一个整数,指定一个字符串在另一个字符串中第一次出现的起始位置.

If InStr(emlSubj , strSubj) > 0 Then
   Debug.Print strSubj
End If