Excel VBA 根据三列中的值查找同一行中的两个值

Question

我有一个如下所示的表格：

基本上，“MatGroup”是“StorLoc”的子类型，“StorLoc”是“Department”的子类型。

我需要在这三列中查找匹配项，然后将其他两列的值返回到右侧（这些列代表周）。

我在上图中突出显示了一个示例。我在 第 4 周 和 5 搜索 Department 1101、StorLoc 0001 和 MatGroup 1225 ，它应该返回值 243 和 245，然后可以将它们相加 = 488。

出于测试目的，我有一个工作公式可以在同一个工作表中执行此操作：

=SUMPRODUCT(XLOOKUP(K6&J8&K7;A2:A40&B2:B40&C2:C40;D2:E40))

但是，我需要一个纯 VBA 解决方案，因为我将把这些数据提取到一个完全独立的工作簿中。我无法使用与上述公式相同的解决方案，因为显然 VBA 不允许您使用 & 连接多个条件。

我目前使用大量 CountIfs 的解决方案并不完全令人满意，而且完全比必要的资源密集（而且混乱！）：

resultCount = Application.WorksheetFunction.SumIfs(dataWorkBook.Range("A" & departmentStartRow & ":BC" & departmentEndRow).Columns(weekNumber + 1), dataWorkBook.Range("B" & departmentStartRow & ":B" & departmentEndRow), StorLoc, dataWorkBook.Range("C" & departmentStartRow & ":C" & departmentEndRow), MatGroup)

Answer 1

请尝试下一个代码。它使用一个数组，即使在大范围内也应该非常快，在内存中工作：

Sub LookupThreeConditions()
 Dim sh As Worksheet, sh1 As Worksheet, lastRow As Long, arr, i As Long
 Dim dep As String, stLoc As String, matGr As String, result As Long
 
 dep = "1101": stLoc = "0001": matGr = "1225"
 Set sh = ActiveSheet
 Set sh1 = sh.Next 'use here the sheet you need to copy in
 
 lastRow = sh.Range("A" & sh.rows.Count).End(xlUp).row
 arr = sh.Range("A2:F" & lastRow).value 'put the range in an array
 For i = 1 To UBound(arr)
    If arr(i, 1) & arr(i, 2) & arr(i, 3) = dep & stLoc & matGr Then
        result = arr(i, 5) + arr(i, 6): Exit For
    End If
 Next i
 MsgBox "Result is " & result
 sh1.Range("A1").value = result 'use here what range you need
 End Sub