如何用VBA的InStr实现精确字符串匹配？解决包装尺寸匹配误判

我有个包含产品描述的电子表格，描述中存在Pack of 1、PACK OF 1、1 PAck等多种大小写组合的包装表述。我编写了VBA代码，通过配置包装描述与尺寸表来填充数字包装尺寸字段，代码可正常运行，但会将标题中的PACK OF 10误匹配为Pack of 1，并在目标列填充数值1。尝试过多种InStr语法，想找实现字符串精确匹配的方法。现有代码如下：

'Reset filter and 'Process PackSize not updated in filter process
PackListWs.Activate
ApdTbl.AutoFilter.ShowAllData
PLCount = PackTbl.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
SizeCount = SizeTbl.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
AmzDataWs.Activate
For i = 6 To ApdCount
   
  If Sheets("DATA - Product Validation").Range("i" & i).Value = "" Then
    If Sheets("DATA - Product Validation").Range("g" & i).Value <> "" Then
      k = 2
      For k = 2 To PLCount
        sc = 2

        For sc = 2 To SizeCount
          PackSize = PackListWs.Range("e" & sc).Value
          PackFilter = PackListWs.Range("c" & k).Value
    
          PackFilter = Replace((PackFilter), "*", PackSize)
          PackFilter = "*" & PackFilter & "*"
            
          Application.StatusBar = "Processing Amazon Pack Sizes without brackets -  " & PackFilter
          StrToChk = AmzDataWs.Range("g" & i).Value

          If InStr(1, (StrToChk), (PackFilter), vbTextCompare) > 0 Then
            AmzDataWs.Range("i" & i) = PackSize
          Else
            GoTo NoUpdate2
          End If

NoUpdate2:
        Next sc
      Next k
    End If
  End If
  
Next i

当前代码的问题在于用*通配符包裹匹配字符串，比如把Pack of *替换为Pack of 1后，变成*Pack of 1*。这种模糊匹配会把PACK OF 10中的PACK OF 1前缀识别为有效匹配——因为*会匹配任意后续字符（包括这里的0），导致误判。

使用正则表达式实现带单词边界的不区分大小写匹配，确保只匹配完整的包装短语，不会被更长的字符串包含。正则的\b标记表示单词边界，能保证Pack of 1仅在独立出现时被匹配，不会和Pack of 10这类字符串的前缀部分混淆。

修改步骤： #

1. 在模块开头添加正则对象声明（放在所有过程外面）：

Dim regEx As Object

2. 在循环开始前初始化正则配置：

' 放在AmzDataWs.Activate之后，For i = 6 To ApdCount之前
Set regEx = CreateObject("VBScript.RegExp")
regEx.IgnoreCase = True ' 忽略大小写差异
regEx.Global = False ' 只匹配一次即可

3. 替换原有的InStr匹配逻辑：
   把代码中从PackFilter = "*" & PackFilter & "*"到GoTo NoUpdate2的部分，替换为以下代码：

' 生成带单词边界的匹配模式
Dim matchPattern As String
matchPattern = "\b" & Replace(PackListWs.Range("c" & k).Value, "*", PackSize) & "\b"

' 可选：转义正则特殊字符（如果你的包装描述里有.、?、+这类符号的话）
matchPattern = Replace(matchPattern, ".", "\.")
matchPattern = Replace(matchPattern, "?", "\?")
matchPattern = Replace(matchPattern, "+", "\+")

regEx.Pattern = matchPattern

' 执行匹配判断
If regEx.Test(StrToChk) Then
    AmzDataWs.Range("i" & i) = PackSize
Else
    GoTo NoUpdate2
End If

说明： #

• \b会匹配单词的开头/结尾（比如空格、标点、字符串首尾这类位置），确保Pack of 1是一个完整的独立短语，不会被Pack of 10中的前缀部分触发匹配。
• regEx.IgnoreCase = True保证大小写不敏感，能匹配所有大小写组合的表述。

内容的提问来源于stack exchange，提问作者craig crowhurst