请高手帮忙，用VBA代码代替公式

lzrlzr

请高手帮忙，用VBA代码代替公式：=SUMIF(数据库!$A$4:$A$8888,$A3,数据库!$H$4:$H$8888)等等，就是将表“汇总“的B3:D14的公式用VBA代码代替，E列的公式能用代码代替更好。因为数据量大，公式运行慢。谢谢了！具体详见附件。

海礁

1. Sub 汇总()
   
2.     Dim MO As Byte
   
3.     For MO = 3 To 14
   
4.         Sheets("汇总").Cells(MO, 2) = WorksheetFunction.SumIf(Sheets("数据库").Columns(1), _
   
5.         Sheets("汇总").Cells(MO, 1), Sheets("数据库").Columns(8))
   
6.         Sheets("汇总").Cells(MO, 3) = WorksheetFunction.SumIf(Sheets("数据库").Columns(1), _
   
7.         Sheets("汇总").Cells(MO, 1), Sheets("数据库").Columns(12))
   
8.         Sheets("汇总").Cells(MO, 4) = WorksheetFunction.SumIf(Sheets("数据库").Columns(1), _
   
9.         Sheets("汇总").Cells(MO, 1), Sheets("数据库").Columns(16))
   
10.         Sheets("汇总").Cells(MO, 5) = Sheets("汇总").Cells(MO, 2) + Sheets("汇总").Cells(MO, 3) + _
    
11.         Sheets("汇总").Cells(MO, 4)
    
12.     Next MO
    
13.     Sheets("汇总").[B15] = WorksheetFunction.Sum(Sheets("汇总").[B3:B14])
    
14.     Sheets("汇总").[C15] = WorksheetFunction.Sum(Sheets("汇总").[C3:C14])
    
15.     Sheets("汇总").[D15] = WorksheetFunction.Sum(Sheets("汇总").[D3:D14])
    
16.     Sheets("汇总").[E15] = WorksheetFunction.Sum(Sheets("汇总").[E3:E14])
    
17. End Sub

复制代码