VBA调优

1，SUMIF（$C$2:$C$9000,I1,$D$2:$D$9000）
 C列从第2行到第9000行，值是I1的所有C列对应的D列，求和

 

2，COUNTIF和SUMPRODUCT都可以取次数
以下的语句中sumproduct替换为COUNTIF后性能大幅度提高

 Dim strFormula As String 
 strFormula = "IF(COUNTIF('" & ThisWorkbook.Path & "\[" & strFilePath
 strFormula = strFormula & ".xlsx]用語'!$B:$B,$A" & intRow & ")," & Chr(34) & "●" & Chr(34) & "," & Chr(34) & Chr(34) & ")"