多条件下vb代码求和

gdhgdh_2004

各位大侠，因数据量多，利用函数太卡时间超长，有时还死机，听说利用ＶＢ代码可以缓解，还请各位路过的大侠帮忙解忧，在此万分感谢！！！

shiruiqiang

用字典吧。生产线不建议标明，直接去重统计。年月是c列和e列

gdhgdh_2004

关键对ＶＢ没接触过，还请帮忙写写代码！！！

hongshan2019

透视图或许就可以解决你的问题

gdhgdh_2004

shiruiqiang 发表于 2022-11-19 10:54
用字典吧。生产线不建议标明，直接去重统计。年月是c列和e列

你好，能帮忙一下代码吗

于箱长

方法1：不用字典，直接用数组循环累加
方法2：用7个字典，分别计算7列的累加
方法3：用1个字典，计算一列累加后清空再计算下一列
方法4：用1个字典，把每一行的值都放入数组，再用字典进行相应的列累加

kdsea

经测 ，可用，你试一下吧

kdsea

kdsea 发表于 2022-11-24 11:52
经测 ，可用，你试一下吧

Sub 查询一下()
    Dim i, h
   
     Range("C6:J28") = ""
     With Sheets("生产数据明细表")
         For i = 4 To 5000
             For h = 4 To 10
               If .Cells(i, 3) = "" Then Exit For
                K = Range("B6:B100").Find(.Cells(i, 3)).Row
                On Error Resume Next
               If (Year(.Cells(i, 1)) = [C2]) And (.Cells(i, 2) = [E2]) And (.Cells(i, 3) = Cells(K, 2)) Then
               
                  Cells(K, h - 1) = Cells(K, h - 1) + .Cells(i, h)
            
               End If
               
            Next
        Next
    End With
End Sub

ykcbf1100

于箱长 发表于 2022-11-23 15:05
方法1：不用字典，直接用数组循环累加
方法2：用7个字典，分别计算7列的累加
方法3：用1个字典，计算一列 ...

你方法挺多啊。

于箱长

ykcbf1100 发表于 2022-11-24 12:15
你方法挺多啊。

嗯，这是我经历过的历程，不断进阶