VBA跨工作表模糊查找：从Sheet4取值到变量并在Sheet1搜索

我来帮你搞定这个VBA模糊查找的需求！你的思路方向是对的，只需要调整查找的匹配规则，再完善一下代码的健壮性就可以了。

核心要点说明 #

模糊查找的关键是设置LookAt:=xlPart参数，这个参数会告诉Excel：只要单元格内容包含目标字符串就匹配，而不是默认的完全匹配（xlWhole）。这样就能实现你要的效果——比如用"ABC123"找到包含"ABC12345"的单元格。

完整可运行代码 #

Sub Find_First()
    Dim FindString As String
    Dim Rng As Range
    Dim wsSource As Worksheet ' 数据源表（Sheet4）
    Dim wsTarget As Worksheet ' 查找目标表（Sheet1）
    
    ' 初始化工作表对象（用ThisWorkbook确保是当前工作簿，避免跨工作簿错误）
    Set wsSource = ThisWorkbook.Worksheets("Sheet4")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet1")
    
    ' 从Sheet4提取值到变量（这里假设取A1单元格，按需修改为你的目标单元格）
    ' 增加空值判断，避免查找空字符串导致的异常
    If Not IsEmpty(wsSource.Range("A1").Value) Then
        FindString = wsSource.Range("A1").Value
    Else
        MsgBox "Sheet4的目标单元格为空，请检查数据源！"
        Exit Sub
    End If
    
    ' 执行模糊查找：关键参数是LookAt:=xlPart
    Set Rng = wsTarget.Cells.Find(What:=FindString, _
                                  LookIn:=xlValues, ' 查找单元格的值（而非公式）
                                  LookAt:=xlPart, ' 模糊匹配：包含目标文本即可
                                  SearchOrder:=xlByRows, ' 按行查找
                                  SearchDirection:=xlNext, ' 从当前单元格往下找
                                  MatchCase:=False) ' 不区分大小写，需区分则改为True
    
    ' 处理查找结果
    If Not Rng Is Nothing Then
        ' 激活找到的第一个匹配单元格
        Rng.Activate
        MsgBox "成功找到匹配单元格：" & Rng.Address
    Else
        MsgBox "未找到包含 """ & FindString & """ 的单元格！"
    End If
End Sub

扩展：查找所有匹配单元格 #

如果你需要找到所有包含目标字符串的单元格（而不仅仅是第一个），可以用FindNext循环实现，比如给所有匹配单元格添加高亮：

Sub Find_All()
    Dim FindString As String
    Dim Rng As Range
    Dim firstAddr As String
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    Set wsSource = ThisWorkbook.Worksheets("Sheet4")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet1")
    
    If Not IsEmpty(wsSource.Range("A1").Value) Then
        FindString = wsSource.Range("A1").Value
    Else
        MsgBox "Sheet4的目标单元格为空！"
        Exit Sub
    End If
    
    Set Rng = wsTarget.Cells.Find(What:=FindString, LookIn:=xlValues, LookAt:=xlPart)
    
    If Not Rng Is Nothing Then
        firstAddr = Rng.Address ' 记录第一个匹配单元格的地址，避免无限循环
        Do
            ' 给匹配单元格添加黄色背景
            Rng.Interior.Color = RGB(255, 255, 0)
            ' 查找下一个匹配单元格
            Set Rng = wsTarget.Cells.FindNext(Rng)
        Loop While Not Rng Is Nothing And Rng.Address <> firstAddr
        MsgBox "已标记所有匹配单元格！"
    Else
        MsgBox "未找到匹配内容！"
    End If
End Sub

注意事项 #

• 确保Sheet4和Sheet1的名称和工作簿中的一致，或者可以改用工作表索引（比如ThisWorkbook.Worksheets(4)）。
• 如果需要查找公式结果而非单元格显示值，把LookIn:=xlValues改成LookIn:=xlFormulas。
• MatchCase参数可以控制是否区分大小写，按需调整。

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