VBA问题：基于I列称谓配置L列与S列内容（含IsNumber/Search）

看起来你现在遇到的问题是代码只对包含Mr的I列生效，Mrs的情况没触发对吧？咱们一步步来搞定这个问题。

首先，先明确你的需求逻辑：

• 当I列单元格包含Mr或Mrs任意一个关键词时，将对应行的L列设置为Dear Sir/Madam
• 当L列单元格等于Dear Sir/Madam时，对应行的S列设置为your banking facilities

问题根源分析 #

你提到用了类似Excel公式里的If(IsNumber(Search(...)))逻辑，在VBA里直接照搬工作表函数的话，如果Search找不到匹配文本会抛出错误；而且如果原来的代码只判断了Mr没包含Mrs，自然只有Mr的情况生效。

修正后的完整VBA代码 #

Sub UpdateColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表，这里改成你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取I列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    ' 遍历每一行（假设表头在第1行，从第2行开始遍历）
    For i = 2 To lastRow
        ' 用InStr判断I列是否包含Mr或Mrs，InStr返回找到的位置，>0表示存在
        If InStr(1, ws.Cells(i, "I").Value, "Mr", vbTextCompare) > 0 Or _
           InStr(1, ws.Cells(i, "I").Value, "Mrs", vbTextCompare) > 0 Then
            ' 设置L列值
            ws.Cells(i, "L").Value = "Dear Sir/Madam"
        End If
        
        ' 检查L列是否为目标文本，设置S列
        If ws.Cells(i, "L").Value = "Dear Sir/Madam" Then
            ws.Cells(i, "S").Value = "your banking facilities"
        End If
    Next i
End Sub

代码关键点说明 #

1. 用InStr替代工作表函数组合：
   VBA里的InStr函数可以直接判断一个字符串是否包含另一个子串，vbTextCompare表示不区分大小写（如果需要区分的话改成vbBinaryCompare），返回值大于0就说明找到了匹配内容，比调用WorksheetFunction.Search更稳定，不会因为找不到匹配而报错。
2. 同时判断Mr和Mrs：
   用Or运算符把两个判断条件连起来，这样只要满足其中一个就会触发L列的赋值。
3. 遍历范围优化：
   先获取最后一行行号，避免遍历整个工作表，提升运行效率。

如果你坚持要用工作表函数的写法（不推荐，因为容易报错） #

如果一定要模拟Excel里的If(IsNumber(Search(...)))，需要用On Error Resume Next来捕获找不到匹配时的错误，代码示例：

Sub UsingWorksheetFunctions()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim searchResult As Variant
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    For i = 2 To lastRow
        On Error Resume Next
        ' 搜索Mr，找不到会报错，searchResult会是错误值
        searchResult = WorksheetFunction.Search("Mr", ws.Cells(i, "I").Value)
        If IsNumeric(searchResult) Then
            ws.Cells(i, "L").Value = "Dear Sir/Madam"
        Else
            ' 再搜索Mrs
            searchResult = WorksheetFunction.Search("Mrs", ws.Cells(i, "I").Value)
            If IsNumeric(searchResult) Then
                ws.Cells(i, "L").Value = "Dear Sir/Madam"
            End If
        End If
        On Error GoTo 0 ' 恢复错误捕获
        
        If ws.Cells(i, "L").Value = "Dear Sir/Madam" Then
            ws.Cells(i, "S").Value = "your banking facilities"
        End If
    Next i
End Sub

这种写法不如InStr简洁高效，所以更推荐第一种方案。

测试建议 #

运行代码前可以先选中几行包含Mrs的测试数据，或者在本地测试环境里先小范围验证，确保逻辑符合预期。

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