Excel VBA多条件跨工作簿查找求助：基于三规则获取指定价格

为什么选VBA而非工作表函数？ #

因为你需要匹配单元格黄色填充这种格式条件，Index/Match、XLookup这类函数只能识别单元格内容，无法直接判断格式属性，所以VBA是最直接的解决方式。

具体VBA代码实现 #

打开Workbook A，按下Alt + F11打开VBA编辑器，右键插入新模块，粘贴以下代码：

Sub GetTargetPrice()
    Dim wbA As Workbook, wbB As Workbook
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetPrice As Variant
    
    ' 绑定当前工作簿（Workbook A）和prices工作表
    Set wbA = ThisWorkbook
    Set wsA = wbA.Worksheets("prices")
    
    ' 绑定Workbook B（先确保文件已打开，或修改代码自动打开）
    On Error Resume Next
    Set wbB = Workbooks("Workbook B.xlsx") ' 替换为你的Workbook B实际文件名
    On Error GoTo 0
    
    If wbB Is Nothing Then
        MsgBox "Workbook B未打开，请先打开该文件！", vbExclamation
        Exit Sub
    End If
    Set wsB = wbB.Worksheets("list")
    
    ' 获取list表最后一行数据（假设名称列是A列，按需调整）
    lastRow = wsB.Cells(wsB.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历查找符合条件的价格
    targetPrice = "未找到匹配项"
    For i = 2 To lastRow ' 假设第1行是表头，从第2行开始遍历
        ' 三个匹配条件：名称=4Fruits、水果名=Green Apple、价格单元格为黄色
        ' 注意：A/B/C列需替换为你实际的列位置，比如水果名在E列就写"E"
        If wsB.Cells(i, "A").Value = "4Fruits" _
           And wsB.Cells(i, "B").Value = "Green Apple" _
           And wsB.Cells(i, "C").Interior.ColorIndex = 6 ' 黄色默认ColorIndex为6，不符则自行验证
        Then
            targetPrice = wsB.Cells(i, "C").Value
            Exit For ' 找到第一个匹配项后停止遍历
        End If
    Next i
    
    ' 将结果写入Workbook A的prices表B5单元格
    wsA.Range("B5").Value = targetPrice
End Sub

代码注意事项 #

1. 工作簿路径优化：如果不想手动打开Workbook B，可将绑定wbB的代码改为Set wbB = Workbooks.Open("C:\你的文件路径\Workbook B.xlsx")，替换为实际文件路径即可。
2. 列位置调整：务必根据你的工作表实际列布局，修改代码中的A/B/C列标识。
3. 黄色ColorIndex验证：若代码中6对应的颜色不对，选中黄色价格单元格，在VBA编辑器立即窗口输入?ActiveCell.Interior.ColorIndex，按回车得到的数值替换6即可。
4. 多匹配处理：若存在多个符合条件的价格，删除代码中的Exit For，并调整逻辑将结果写入多个单元格（如B5、B6等）。

非VBA替代方案（辅助列+函数） #

如果不想编写代码，可在Workbook B的list表添加辅助列（如D列），在D2单元格输入公式：

=IF(AND(A2="4Fruits", B2="Green Apple", CELL("color", C2)=1), C2, "")

随后在Workbook A的prices表B5单元格使用XLookup获取结果：

=XLOOKUP("*", '[Workbook B.xlsx]list'!$D:$D, '[Workbook B.xlsx]list'!$C:$C, "未找到匹配项")

注意：该方法中CELL("color")仅对标准黄色返回1，且需按F9手动刷新才会更新结果。

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