[已解决]多条件汇总求助

531tommy · 发表于 2022-10-12 11:53

求大神帮忙，我需要按照Shhet2的多个条件在Sheet1中的数据进行统计

cutecpu · 发表于 2022-10-12 12:17

Sub demo()
[e2] = "=COUNTIFS(Sheet1!D:D,A2,Sheet1!C:C,B2,Sheet1!B:B,C2,Sheet1!E:E,D2,Sheet1!F:F,"">=80"")"
Range([d2], [d2].End(4)).Offset(, 1).FillDown
End Sub

祝順心，南無阿彌陀佛！

531tommy · 发表于 2022-10-12 12:41

cutecpu 发表于 2022-10-12 12:17
Sub demo()
[e2] = "=COUNTIFS(Sheet1!D:D,A2,Sheet1!C:C,B2,Sheet1!B:B,C2,Sheet1!E:E,D2,Sheet1!F:F,"" ...

如果使用字典进行统计汇总需要如何编写，数据量比较多，使用公式电脑配置差，运行比较慢

cutecpu · 发表于 2022-10-12 13:40

这个最佳答案由 cutecpu 给出，感谢 cutecpu 的回答。

单击隐藏图章

531tommy 发表于 2022-10-12 12:41
如果使用字典进行统计汇总需要如何编写，数据量比较多，使用公式电脑配置差，运行比较慢

Sub demo()
Set d = CreateObject("Scripting.Dictionary")
a = Sheets(1).[a1].CurrentRegion
For i = 2 To UBound(a)
   If a(i, 6) >= 80 Then
      Key = a(i, 4) & a(i, 3) & a(i, 2) & a(i, 5)
      d(Key) = d(Key) + 1
   End If
Next
a = Sheets(2).[a1].CurrentRegion
For i = 2 To UBound(a)
   Key = a(i, 1) & a(i, 2) & a(i, 3) & a(i, 4)
   a(i, 5) = d(Key)
Next
Sheets(2).[a1].CurrentRegion = a
End Sub

hasyh2008 · 发表于 2022-10-12 13:42

本帖最后由 hasyh2008 于 2022-10-12 13:44 编辑

Sub 多条件统计()
Dim ar, br, r, str, d
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.Cells(1, 1).CurrentRegion
For r = 2 To UBound(ar)
      str = ar(r, 4) & ar(r, 3) & ar(r, 2) & ar(r, 5)
      If ar(r, 6) >= 80 Then d(str) = d(str) + 1
Next r
br = Sheet2.Cells(1, 1).CurrentRegion
For r = 2 To UBound(br)
      str = br(r, 1) & br(r, 2) & br(r, 3) & br(r, 4)
      If d.exists(str) Then
         br(r, 5) = d(str)
      Else
         br(r, 5) = 0
      End If
Next r
Sheet2.Cells(1, 1).CurrentRegion = br
End Sub

		自动登录	找回密码
密码			注册