Excel VBA入门求助：跨工作表字符串匹配取值代码编写

Hey there! Let's fix your VBA script step by step. I'll start with a working code example, then break down the common mistakes that might have caused your val2 line error.

Sub FindAndDisplayName()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim searchRange As Range, foundCell As Range
    Dim searchString As String
    Dim extractedName As String
    
    ' 绑定工作表对象（避免用Select/Activate，更高效稳定）
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 替换成你实际要查找的指定字符串
    searchString = "目标字符串" ' 比如"张三"或"项目X"
    
    ' 限定Sheet1 B列的有效查找范围（跳过表头，只找有数据的行）
    Set searchRange = ws1.Range("B2:B" & ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row)
    
    ' 精准查找指定字符串（xlWhole表示完全匹配，xlPart可改为模糊匹配）
    Set foundCell = searchRange.Find(What:=searchString, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 判断是否找到匹配项
    If Not foundCell Is Nothing Then
        ' 提取对应行A列的值
        extractedName = ws1.Cells(foundCell.Row, "A").Value
        ' 在Sheet2 D3单元格按要求格式输出
        ws2.Range("D3").Value = "The name is " & extractedName
    Else
        ' 未找到时的提示文本
        ws2.Range("D3").Value = "The name is not found"
    End If
End Sub

结合初学者常见问题，整理几个大概率触发报错的点：

• 未指定工作表对象：如果代码直接写Range("B:B")而没绑定Sheet1，当当前激活的不是Sheet1时，会引用错误的工作表，导致查找结果异常或报错。
• 未处理查找为空的情况：如果没找到匹配字符串，foundCell会是Nothing，直接提取行号会触发“对象变量未设置”的错误。
• 字符串拼接方式错误：如果用+拼接文本（比如"The name is " + val2），当提取的A列是文本时会触发类型不匹配，VBA里应该用&来拼接字符串。
• 变量未声明/类型不匹配：如果val2没提前声明，或者声明的类型（比如Integer）和A列的文本值不匹配，会触发类型错误。
• 查找范围不合理：直接用整列B:B查找，可能匹配到空单元格或表头，导致提取的A列值不符合预期，甚至引发后续赋值错误。

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