用VBA实现sumif条件求和

姐迷恋歌 · 发表于 2024-2-18 21:59

Sheet1是数据源，Sheet2是要进行条件求和，数据少时还好，一多用sumif公式就比较卡，所以想用宏编码进行计算，求各位大神帮忙

用数据透视表的话就只能按Sheet1的内容进行求和，但实际Sheet2里的有几列内容是从其他表格获取的或固定的，所以只能是通过条件求和

3190496160 · 发表于 2024-2-19 09:48

Sub 条件求和()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("Sheet1")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据源为空！": End
ar = .Range("a1:m" & r)
End With
With Sheets("Sheet2")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
If rs < 2 Then MsgBox "请先录入目标表系列号！": End
.Range("f2:n" & rs) = Empty
br = .Range("a1:n" & rs)
For i = 2 To UBound(br)
      If br(i, 1) <> "" Then
         d(br(i, 1)) = i
      End If
Next i
For i = 2 To UBound(br)
      xh = d(ar(i, 1))
      If xh <> "" Then
         For j = 5 To UBound(ar, 2)
            br(xh, j + 1) = br(xh, j + 1) + ar(i, j)
         Next j
      End If
Next i
.Range("a1:n" & rs) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-2-19 09:49

多列条件求和.rar (23.57 KB, 下载次数: 6)

ahljkt · 发表于 2024-2-19 11:11

进来围观一下

ahljkt · 发表于 2024-2-19 12:15

本帖最后由 ahljkt 于 2024-2-19 12:17 编辑

3190496160 发表于 2024-2-19 09:49

For i = 2 To UBound(ar)
      xh = d(ar(i, 1))
      If xh <> "" Then
         For j = 5 To UBound(ar, 2)
            br(xh, j + 1) = br(xh, j + 1) + ar(i, j)
         Next j
      End If
Next i

3190496160 · 发表于 2024-2-19 14:14

修改了一个小错误

多列条件求和.rar (21.45 KB, 下载次数: 9)

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