具有多个条件的索引/匹配函数查找数组

Question

我查看了但找不到针对这种特定情况的有效响应。

我需要编写一个宏，在表格中搜索特定名称（A 列）、材料（B 列）和颜色（C 列）组合，然后从 D 列返回价格。

我可以输入公式（数组）

=INDEX(Sht1!A1:D5552,MATCH(1,(Sht1!A1:A5552=A1)*(Sht1!B1:B5552=B1)*(Sht1!G1:G5552=C1),0),4)

其中 A1 具有我要搜索的项目的名称，B1 具有材料，C1 具有颜色，并且值返回就好了。但是，我已将其设置为在名称/材料/颜色之间快速选择，并且我希望能够快速拉出价格，因此我尝试编写一个宏以在单击按钮时运行。

我遇到的问题是转置 MATCH(1,(Sht1!A1:A5552=A1)(Sht1!B1:B5552=B1)(Sht1!C1:C5552=C1), 0）部分进入VBA。我试图避免只使用记录功能，因为它会以 R1C1 格式吐出一个 .ForumlaArray，这在未来很难解释和更新。

我试过了

Application.Index(Sht1.Range("A1:D5552"), _
  Application.Match(1, Sht1.Range("A1:A5552") = Range("A1") & _
  "*" & Sht1.Range("B1:B5552") = Range("B1") & "*" & Sht1.Range("C1:C5552") = _
  Range("C1"), 0), 4)

但是得到一个类型不匹配

我也尝试放入 .ForumlaArray 但出现“无法设置范围类的 FormulaArray 属性”错误（因为它需要 R1C1 格式）

"=INDEX(Sht1!A1:D5552,MATCH(1,(Sht1!A1:A5552=A1)*(Sht1!B1:B5552=B1)*(Sht1!C1:C5552=C1),0),4)"

我的变量设置略有不同，但我正在尝试简化这些示例以使其更易于解释。

Answer 1

您错误地使用了Application.Match 函数和一些VBA 基础知识。简而言之，函数不像公式那样起作用。

AFAIK Application.Match 获取要查找的值，以及要查找的一维单元格范围并返回数组中单元格的索引。所以听起来你需要为每一列做多次。当然，我在上面找不到任何acceptable documentation。

正确的用法是：

row_index = Application.Match(Sht1.Range("A1").Value, Sht1.Range("A1:A5552"), 0)
price_value = Sht1.Cells(row_index, "D").Value

但这只会返回第一个匹配项，而不是全部。如果您所做的只是在 VBA 中复制公式，则 VBA 不会提高性能。其他海报是正确的，可能需要采用不同的方法。

---

您遇到的其他一些基本问题主要源于您获取公式字符串并尝试将其直接转换为 Application.Match，而这是 AFAIK 无法做到的。

您正在尝试指定匹配的条件，如下所示：

Sht1.Range("A1:A5552") = Range("A1")

您真正在做的是尝试比较范围。 VBA 在将其传递给Application.Match 之前尝试将其评估为布尔值。这将返回类型错误，因为范围的维度不同。

如果您还没有这样做：Sht1 需要声明为 Worksheet 对象并设置为 ActiveWorkbook.Sheets("Sht1")

Dim Sht1 As WorkSheet
Set Sht1 = ActiveWorkbook.Sheets("Sht1")

您不能简单地希望变量Sht1 已经引用了工作表“Sht1”。

然后你试着像这样把它们串起来。

Sht1.Range("A1:A5552") = Range("A1") & "*" & _
Sht1.Range("B1:B5552") = Range("B1") & "*" & _
Sht1.Range("C1:C5552") = Range("C1")

我想您知道& 用于字符串连接，但您尝试连接字符串"*" 与未定义的布尔值/范围。

VBA 解决方案

如果您想要使用 VBA 的解决方案，您可以遍历所有行直到找到匹配项：

Function FindProduct(name As String, material As String, color As String) As String

    Dim product_sheet As WorkSheet
    Set product_sheet = GetProductSheet() ' Workbooks(BOOK_NAME).Sheets(SHEET_NAME)

    Dim row_index as Long
    For row_index = 2 To product_sheet.UsedRange.Rows.Count

        If product_sheet.Cells(row_index, NAME_COL).Value = name _
        And product_sheet.Cells(row_index, MATERIAL_COL).Value = material _
        And product_sheet.Cells(row_index, COLOR_COL).Value = color Then

            FindProduct = product_sheet.Cells(row_index, PRODUCT_COL).Value
            Exit Function

        End If

    Next row_index

End Function

或者如果性能是一个问题：

• 保持您的数据按“A”、“B”、“C”列排序（在本示例中，按此顺序）。
• 在“A”列中查找匹配的行范围
• 从该范围中，找到与列“B”匹配的行的子范围
• 在该范围内，返回与列“C”匹配的行的子范围

稍后我可能会提供。

Answer 2

我认为采用完全不同的方法会更好。我不会让 VBA 进行查找，而是使用 VBA 来维护表列中唯一值的列表，每个列都包含在一个命名范围中。然后使用数据验证为由 VBA 创建的命名范围填充的每个搜索项（名称、材料、颜色）创建一个下拉菜单，并继续使用您上面提供的数组公式来执行实际查找。

请参阅 Jean-François Corbett 的回答，了解如何Populate unique values in to VBA array from excel。

将Table 与structured references 结合使用，您可以在Table 的底部添加更多条目，它会自动扩展以包含它们。当Table 更改时，设置您的 VBA 代码以构建新的唯一值列表（并将它们存储在命名范围中，例如 NamesList、MaterialsList、ColorList）。

另一种选择是简单地使用数据透视表。

编辑：Here's another nice approach 从Range 构建唯一值列表。