使用 SUMIFS 添加持续时间总是给出 00:00:00

Question

Sub Add_sumf()
Dim i As Integer
i = 3
Dim cellDate As Integer
cellDate = 0
Dim cellDate1 As Date
cellDate1 = TimeValue("00:00:00")
Dim total    As Integer
total = 0
Dim j As Integer
j = 2
Dim k As Integer
k = 2
Set aa = Workbooks("Book3").Worksheets(1)
Set bb = Workbooks("Final_result").Worksheets(1)
Do While bb.Cells(1, k).Value <> ""

    For Each y In bb.Range("A:A")
    On Error GoTo Label

    If UCase(bb.Cells(j, "A").Value) <> "" Then


     cellDate1 = WorksheetFunction.SumIfs(aa.Range("F:F"), aa.Range("B:B"), UCase(bb.Cells(1, k).Value), aa.Range("G:G"), UCase(bb.Cells(j, "A").Value))                         
    bb.Cells(j, k).Value = TimeValue(cellDate1)

    cellDate1 = TimeValue("00:00:00")
    bb.Cells(j, k).NumberFormat = "[h]:mm:ss"

    On Error GoTo Label

    j = j + 1
    Else
    Exit For
    End If
    Next
    j = 2
    k = k + 1
 Loop
Label:
    'MsgBox Err.Description
    Exit Sub


End Sub

我使用上面的代码根据其他两列的值添加持续时间，但结果总是 00:00:00。

如果我使用下面的代码，我会得到答案，但它太慢非常慢

Sub add_it_time()
Dim i As Integer
i = 3
Dim cellDate As Integer
cellDate = 0
Dim cellDate1 As Date
cellDate1 = TimeValue("00:00:00")
Dim total    As Integer
total = 0
Dim j As Integer
j = 2
Dim k As Integer
k = 2
Set aa = Workbooks("Book3").Worksheets(1)
Set bb = Workbooks("Final_result").Worksheets(1)
Do While bb.Cells(1, k).Value <> ""
 'MsgBox bb.Cells(1, k).Value
    For Each y In bb.Range("A:A")
    On Error GoTo Label
   ' MsgBox UCase(bb.Cells(j, "A").Value)
    If UCase(bb.Cells(j, "A").Value) <> "" Then

        For Each x In aa.Range("F:F")
        On Error Resume Next
        If UCase(aa.Cells(i, "B").Value) = UCase(bb.Cells(j, "A").Value) Then
       ' MsgBox aa.Cells(i, "F").Text
       ' total = total + Int(get_Second(aa.Cells(i, "F").Text))
        If UCase(aa.Cells(i, "G").Value) = UCase(bb.Cells(1, k).Value) Then
         'MsgBox aa.Cells(i, "F").Text
        cellDate1 = cellDate1 + TimeValue(aa.Cells(i, "F").Value)
        End If
        End If
        i = i + 1
        Next
        i = 3
        On Error GoTo Label
         bb.Cells(j, k).NumberFormat = "h:mm:ss"
        bb.Cells(j, k).Value = WorksheetFunction.Text(cellDate1, "[hh]:mm:ss")
        total = 0
        cellDate1 = 0
    j = j + 1
    Else
    Exit For
    End If
    Next
    j = 2
    k = k + 1
 Loop
Label:
    'MsgBox Err.Description
    Exit Sub
End Sub

包含日期的源列是通用格式 我是 VBA 宏的新手

Answer 1

更新的解决方案：

在与 OP 聊天讨论后，决定纯公式解决方案很好 - 以下是要在 单独 表上执行的公式/操作，从 A1 开始：

1. A 行将生成表格标题：在A1 中，我添加了Agent Name / Release Code，从B1 开始，有一个所有可用Release Code 值的列表（使用Remove Duplicates 很容易获得）。
2. 为了简单和有效，我定义了以下命名范围（因为初始数据不是静态的）：AgentNames=OFFSET('Agent State'!$B$2,0,0,COUNTA('Agent State'!$B:$B)-1,1) - 这将返回初始工作表上的名称范围不包括标题； TimeInStateData=OFFSET(AgentNames,0,4) 和 ReleaseCodes=OFFSET(AgentNames,0,5) 移动了 AgentNames 范围。
3. 在A 列中，我们应该获得应该是唯一的名称列表，因此在A 列中选择不小于唯一名称数量的任意数量的单元格 - 对于我使用A2:A51 的示例，然后键入该公式：=IFERROR(INDEX(AgentNames,SMALL(IF(MATCH(AgentNames,AgentNames,0)=ROW(INDIRECT("1:"&ROWS(AgentNames))),MATCH(AgentNames,AgentNames,0),""),ROW(INDIRECT("1:"&ROWS(AgentNames))))),"") 并按 CTRL+SHIFT+ENTER 而不是通常的 ENTER - 这将定义一个Multicell ARRAY 公式，并在其周围产生{} 大括号（但请不要手动输入它们！）。李>
4. B2: =IF(OR($A2="",SUMPRODUCT(--($A2=AgentNames),--(B$1=ReleaseCodes),TIMEVALUE(TimeInStateData))=0),"",SUMPRODUCT(--($A2=AgentNames),--(B$1=ReleaseCodes),TIMEVALUE(TimeInStateData))) - 普通公式，将返回空名称或零时间的空值。
5. 将公式从B2 复制到整个表格。

备注：

• 时间值总和的结果范围应格式化为Time。
• 如果将来要扩展名称列表 - 对新范围重复第 3 步，但不要向下拖动公式 - 这将导致 You cannot change part of an array 错误。

示例文件：https://www.dropbox.com/s/quudyx1v2fup6sh/AgentsTimeSUM.xls

初步回答：

也许这太简单明了，但乍一看我不明白为什么你有那行代码：

cellDate1 = TimeValue("00:00:00")

就在您的SUMIFS 之后：cellDate1 = WorksheetFunction.SumIfs(aa.Range("F:F"), ...

尝试删除您为cellDate1 分配零的第一个。