如何在其他工作表的字符串列中查找指定单元格？VBA代码咨询

原代码核心问题 #

• 无有效循环逻辑：仅执行单次判断，i变量未实现遍历行的作用
• Instr函数参数错误：语法不符合VBA规范，参数顺序、引号使用、查找目标写法均存在问题
• 输出方式错误：Print是输出到立即窗口，若要写入单元格需用单元格赋值操作
• 未实现接收两个单元格内容的逻辑：原代码未获取待查找的两个目标值
• 变量未声明：未启用Option Explicit强制声明变量，易引发隐性错误
• 单元格引用错误：VBA中直接用'Input'!RiC11会报错，需改用Cells或Range对象定位单元格

修正后的代码 #

Option Explicit

Sub search_cellID()
    ' 声明变量
    Dim wsInput As Worksheet
    Dim targetVal1 As String, targetVal2 As String
    Dim lastRow As Long
    Dim i As Long
    
    ' 绑定目标工作表
    Set wsInput = ThisWorkbook.Worksheets("Input")
    
    ' 获取要查找的两个单元格内容（示例取当前工作表A1、B1，可按需修改来源）
    targetVal1 = Trim(ThisWorkbook.ActiveSheet.Range("A1").Value)
    targetVal2 = Trim(ThisWorkbook.ActiveSheet.Range("B1").Value)
    
    ' 获取Input表K列最后一行行号，避免空循环
    lastRow = wsInput.Cells(wsInput.Rows.Count, "K").End(xlUp).Row
    
    ' 遍历Input表K列数据行（从第2行开始）
    For i = 2 To lastRow
        ' 检查当前行K列是否包含第一个目标值
        If InStr(1, wsInput.Cells(i, "K").Value, targetVal1) > 0 Then
            ThisWorkbook.ActiveSheet.Range("V7").Value = wsInput.Cells(i, "B").Value
            Exit Sub ' 找到首个匹配后退出，需查找所有匹配可移除该行
        ' 检查是否包含第二个目标值
        ElseIf InStr(1, wsInput.Cells(i, "K").Value, targetVal2) > 0 Then
            ThisWorkbook.ActiveSheet.Range("V7").Value = wsInput.Cells(i, "B").Value
            Exit Sub
        End If
    Next i
    
    ' 未找到匹配时的处理
    ThisWorkbook.ActiveSheet.Range("V7").Value = "未找到匹配项"
End Sub

关键修改说明 #

• Option Explicit：强制声明所有变量，避免因拼写错误导致的隐性bug
• 工作表对象化：用wsInput直接绑定"Input"工作表，避免使用Select/Activate（VBA中应尽量减少这类操作）
• 查找目标获取：通过targetVal1和targetVal2接收两个待查找的单元格内容，可根据实际需求修改来源单元格
• 有效循环：用For...Next遍历所有数据行，结合lastRow避免遍历空行
• Instr正确用法：Instr(起始位置, 待搜索字符串, 查找目标)，返回值大于0表示找到匹配
• 输出逻辑：将匹配到的B列内容写入指定单元格，未找到匹配时给出明确提示

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