怎样使用VBA符合三个条件则汇总数据?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 汇总()

    Dim i&, tim&, j%
    tim=Hour(Now()) * 3600+Minute(Now()) * 60+Second(Now())
    Application.ScreenUpdating=False          '禁止刷新屏幕
    Sheet2.Cells.Clear                       '清除原数据
    Rows("1:3").Copy Sheet2.Range("a1")         '复制标题
    Sheet2.Columns("d:f").Delete Shift:=xlToLeft
    For i=4 To Range("A1048576").End(xlUp).Row
                          '给变量i赋值，从4到A列最后一个非空行数
    Cells(i, "j")=Cells(i, "b") & Cells(i, "c") & Cells(i, "d")
                          '在j列产生一个辅助列
    Next                                               '重复下一个
    With Sheet2
    For i=4 To Range("A65536").End(xlUp).Row
                          '给变量i赋值，从4到A列最后一个非空行数
      If .Columns("I").Find(Cells(i, "j")) Is Nothing Then
                          '如果汇总表I列不存在辅助列J列之数据
  Range("b" & i & ":e" & i).Copy .Range("A1048576").End(xlUp).
    Offset(1, 0)  '将A列除外的本行数据复制到汇总表
    '对数量和金额进行条件汇总
  .Range("A1048576").End(xlUp).Offset(0, 4)=
        Application.WorksheetFunction.SumIf(Range("j4:j1048576"),
        Cells(i, "j"),Range("H4:H1048576"))
  .Range("A1048576").End(xlUp).Offset(0, 5)=
        Application.WorksheetFunction.SumIf(Range("j4:j1048576"),
        Cells(i, "j"),Range("I4:I1048576"))
  .Range("A1048576").End(xlUp).Offset(0, 6)=Cells(i, "j")
  .Range("A1048576").End(xlUp).Offset(0, 3)=Cells(i, "g")
  End If
Next
.Columns("g").Delete                  '删除辅助列
End With
Columns("j").Delete                   '删除辅助列
MsgBox "运行时间总共" & (Hour(Now()) * 3600+Minute(Now()) * 60+
    Second(Now()))-tim & "秒！", vbOKOnly, "运行完毕"'报告运行时间
Application.ScreenUpdating=True        '禁止刷新屏幕
Call边框
End Sub
Private Sub边框()
Sheet2.Activate
Sheet2.Range("A3:f" & [f1048576].End(xlUp).Row).Select
With Selection.Borders      '边框
.LineStyle=xlContinuous    '线型
.Weight=xlThin           '粗细
End With
End Sub

5、 用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序执行后将弹出运行时间对话框