Excel VBA开发需求：判断指定内容并执行跨表VLOOKUP查询

我明白你要实现的逻辑：先检查Sheet1的W8单元格是否包含指定关键词，再根据结果去Sheet2的指定区域查找另一关键词，最后返回对应B列的值到Sheet1的V3。之前用VLOOKUP和Find组合没成功，可能是因为逻辑串联或者参数设置的问题，试试下面这段VBA代码：

Sub FindAndReturnValue()
    Dim targetSheet1 As Worksheet
    Dim targetSheet2 As Worksheet
    Dim specificWord As String
    Dim word2 As String
    Dim searchRange As Range
    Dim foundCell As Range
    
    ' 初始化工作表对象，避免依赖激活的工作表
    Set targetSheet1 = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取需要检查和查找的关键词
    specificWord = "你要找的特定Word" ' 替换成你的目标关键词
    word2 = targetSheet1.Range("W7").Value
    
    ' 第一步：检查Sheet1的W8是否包含特定关键词
    If InStr(1, targetSheet1.Range("W8").Value, specificWord, vbTextCompare) > 0 Then
        ' 第二步：在Sheet2的A3:A171区域查找Word2
        Set searchRange = targetSheet2.Range("A3:A171")
        Set foundCell = searchRange.Find(What:=word2, _
                                        LookIn:=xlValues, _
                                        LookAt:=xlWhole, _
                                        MatchCase:=False)
        
        ' 如果找到匹配项，将对应B列的值写入Sheet1的V3
        If Not foundCell Is Nothing Then
            targetSheet1.Range("V3").Value = foundCell.Offset(0, 1).Value ' Offset(0,1)就是同一行的B列
        Else
            ' 没找到Word2时的处理，这里设为空，你可以改成提示信息
            targetSheet1.Range("V3").Value = ""
            MsgBox "在Sheet2的指定区域未找到Word2：" & word2, vbInformation
        End If
    Else
        ' W8不包含特定关键词时的处理
        targetSheet1.Range("V3").Value = ""
        MsgBox "Sheet1的W8单元格未包含指定关键词：" & specificWord, vbInformation
    End If
    
    ' 释放对象变量
    Set foundCell = Nothing
    Set searchRange = Nothing
    Set targetSheet2 = Nothing
    Set targetSheet1 = Nothing
End Sub

代码关键细节说明： #

• 工作表引用：用ThisWorkbook.Sheets("Sheet1")明确指定工作表，避免因为切换工作表导致的错误，比用ActiveSheet更可靠。
• 包含判断：用InStr函数配合vbTextCompare实现不区分大小写的包含检查，如果你需要区分大小写，把vbTextCompare改成vbBinaryCompare即可。
• 查找参数：Find方法里的LookAt:=xlWhole是精确匹配Word2，如果你需要模糊匹配（包含Word2即可），改成LookAt:=xlPart。
• 错误处理：加入了未找到匹配项时的提示和空值处理，避免代码运行报错。

你只需要把代码里的"你要找的特定Word"替换成实际要检查的关键词，然后运行这个宏就能实现需求啦。

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