如何修改VBA代码实现基于双搜索条件定位单个单元格？

当然可以修改代码实现双条件搜索，以下是适配动态双条件的实现方案，假设你的两个可变搜索条件分别存放在单元格L3和M3，需要同时匹配B列（原代码的搜索列）和C列的值，找到后定位对应行的E列（原代码偏移3列的位置）：

Sub Find_Items_With_Two_Criteria()
    Dim rFound As Range
    Dim firstAddress As String
    Dim criteria1 As Variant, criteria2 As Variant
    
    ' 读取两个动态搜索条件
    criteria1 = ActiveSheet.Range("L3").Value
    criteria2 = ActiveSheet.Range("M3").Value
    
    ' 首次查找符合第一个条件的单元格
    Set rFound = ActiveSheet.Columns(2).Find(What:=criteria1, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
    If Not rFound Is Nothing Then
        firstAddress = rFound.Address
        Do
            ' 检查当前行的第二个条件是否匹配（示例为C列，可根据需求调整偏移量）
            If rFound.Offset(0, 1).Value = criteria2 Then
                ' 定位到目标单元格
                rFound.Offset(0, 3).Select
                Exit Sub ' 找到首个匹配项后退出，如需遍历所有匹配项可删除此句
            End If
            ' 查找下一个符合第一个条件的单元格
            Set rFound = ActiveSheet.Columns(2).FindNext(rFound)
        Loop While Not rFound Is Nothing And rFound.Address <> firstAddress
    End If
    
    ' 无匹配项时提示
    MsgBox "未找到同时满足两个条件的记录", vbInformation
End Sub

关键说明： #

• 若你的第二个条件对应其他列，修改rFound.Offset(0, 1)中的数字即可（比如要匹配D列就改成Offset(0,2)）
• 若需要查找所有符合双条件的单元格，删除Exit Sub，并添加对应处理逻辑（如记录所有匹配地址）
• 条件单元格位置可按需修改（比如把M3换成其他单元格）

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