VBA SUMIFS - 不工作，所有输入 Return 正确值

Question

当我转到运行时，以下代码抛出 1004 运行时间错误。调试器在第 2 部分的正上方突出显示了 SUMIFS 函数。

此子的目标是使用第 1、3 和 5 列作为 "primary-keys" 定位重复行，然后根据每个行的这些值按列合并第 6-7 行和第 10-17 行的值排。因此 SUMIFS。

我很困惑。使用立即数 window 我可以 return SUMIFS 函数每个部分的正确值（ws.Cells(lRow, lCol).Select 将 select 正确细胞等）。我的下一个想法是 SUMIFS 没有正确解释这些范围，所以我使用特定范围将相同的函数弹出到立即 window 中并收到相同的错误。请参阅下面的行以获取即时 window 条目 - 请注意，在此示例中，目标是合并行 21:23 之间的值。

debug.Print application.WorksheetFunction.SumIfs(range("F21:F23"), range("A9:A30"), range("A21").Value, range("C9:C30"), range("C21").Value, range("E9:E30"), range("E21").Value)

我假设并且 100% 确定命名范围、.codenames 和变量正在按预期工作。那就是说，我以前错了。

如有任何帮助，我们将不胜感激。

Private Sub dba_combine_rows()

Const COL_TRIPS = 6
Const COL_EMP_TRIP = 7
Const COL_LN_HC = 10
Const COL_USN_PR = 17
Dim lLastRow As Long

Dim ws As Worksheet
Set ws = DBA

Dim answer As Integer
answer = MsgBox("Are you sure you want to combine rows?", vbYesNo, "Combine Rows")
If answer = vbNo Then
    Exit Sub
End If

'Get the last row
    Dim i As Long
    For i = Range("inputRange" & ws.CodeName).Column To (Range("inputRange" & ws.CodeName).Column + Range("inputRange" & ws.CodeName).Columns.Count - 1)
        If ws.Cells(ws.Rows.Count, i).End(xlUp).Row > lLastRow Then
            lLastRow = ws.Cells(ws.Rows.Count, i).End(xlUp).Row
        End If
    Next i

''Combine, start modify

    'Set aliases for columns A & B & C, used for checking duplicates
    Dim rngA As Range, rngB As Range, rngC As Range
    Set rngA = ws.Range("inputRange" & ws.CodeName).Columns(1)
    Set rngB = ws.Range("inputRange" & ws.CodeName).Columns(3)
    Set rngC = ws.Range("inputRange" & ws.CodeName).Columns(5)

    Dim lRow As Long, lCol As Long, strHolderA As String, lHolderR As Long
    For lRow = ws.Range("inputRange" & ws.CodeName).Row To lLastRow

    'Part 1 - Check for duplicate entity-country
        If Application.CountIfs(rngA, ws.Cells(lRow, rngA.Column), rngB, ws.Cells(lRow, rngB.Column), rngC, ws.Cells(lRow, rngC.Column)) > 1 Then

        strHolderA = (ws.Cells(lRow, rngA.Column).Value & ws.Cells(lRow, rngB.Column).Value & ws.Cells(lRow, rngC.Column).Value)
        lHolderR = lRow

            For lCol = COL_TRIPS To COL_USN_PR
                If lCol = COL_EMP_TRIP Then
                    lCol = COL_LN_HC
                End If
                ws.Cells(lRow, lCol).Value = Application.WorksheetFunction.SumIfs( _
                    ws.Range(Col_Letter(lCol) & lRow & ":" & Col_Letter(lCol) & lLastRow), rngA, ws.Cells(lRow, rngA.Column).Value, rngB, ws.Cells(lRow, rngB.Column).Value, rngC, ws.Cells(lRow, rngC.Column).Value)
            Next lCol

        'Part 2 - Delete similar rows, excluding 1st
            Dim lRow2 As Long
            For lRow2 = ws.Range("inputRange" & ws.CodeName).Row To lLastRow

                If (ws.Cells(lRow2, rngA.Column).Value & ws.Cells(lRow2, rngB.Column).Value & _
                        ws.Cells(lRow2, rngC.Column).Value) = strHolderA And lRow2 <> lHolderR Then
                    Rows(lRow2 & ":" & lRow2).Select
                    Selection.Delete Shift:=xlUp
                    lRow2 = lRow2 - 1
                End If
            Next lRow2

        End If

    Next lRow

End Sub

Answer 1

sum_range 参数（第一个）的大小必须与条件范围相同，所有。也，必须是相同的大小。

"F21:F23" 只有 3 个单元格，而其他的 "A9:A30" 每个单元格有 22 个。

VBA SUMIFS - 不工作，所有输入 Return 正确值

VBA SUMIFS - Not Working, All Inputs Return Correct Values

excel

vba

sumifs