如何使用InStr函数在单元格中检索多个指定字符串值

核心优化点 #

• 提取公共判断条件，避免重复判断G列值，减少冗余逻辑
• 将重复读取的单元格值存入变量，减少Range对象访问次数，提升代码执行效率
• 修正InStr返回值判断逻辑：InStr未匹配时返回0而非布尔值False，判断是否>0更严谨
• 可封装通用多关键词匹配函数，后续新增匹配关键词无需修改判断逻辑

优化后代码 #

方案1：固定2个关键词（适合当前需求，最简实现） #

' 提前读取单元格值存入变量，避免重复访问Range
Dim colAValue As String, colGValue As String
colAValue = ws.Range("A" & k).Value
colGValue = ws.Range("G" & k).Value

If colGValue = "Lintel" Then
    ' 判断A列值是否包含x1或G
    If InStr(1, colAValue, "x1") > 0 Or InStr(1, colAValue, "G") > 0 Then
        k = k + 1
    Else
        gfexternallintels.Range("B" & j).Value = colAValue
        j = j + 1
    End If
End If

方案2：封装通用多关键词匹配函数（适合后续可能新增匹配关键词的场景） #

首先定义通用匹配函数：

' 入参：源字符串、任意数量的待匹配关键词
' 返回值：源字符串包含任意一个关键词则返回True，否则返回False
Function HasAnyMatch(sourceStr As String, ParamArray keywords() As Variant) As Boolean
    Dim kw As Variant
    For Each kw In keywords
        ' 最后一个参数用vbTextCompare不区分大小写，需要区分可改为vbBinaryCompare
        If InStr(1, sourceStr, CStr(kw), vbTextCompare) > 0 Then
            HasAnyMatch = True
            Exit Function
        End If
    Next
    HasAnyMatch = False
End Function

主逻辑调用示例：

Dim colAValue As String, colGValue As String
colAValue = ws.Range("A" & k).Value
colGValue = ws.Range("G" & k).Value

If colGValue = "Lintel" Then
    If HasAnyMatch(colAValue, "x1", "G") Then
        k = k + 1
    Else
        gfexternallintels.Range("B" & j).Value = colAValue
        j = j + 1
    End If
End If

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