excel - 需要帮助在 VBA 中优化 sumproduct

Question

我有以下代码，但我还没有找到优化它的方法。有什么建议么？

Range("K3").Value = [Sumproduct(((B:B)="Abierto")*((A:A)>=(G3))*((A:A)<=(eomonth(G3,0))))]
Range("K4").Value = [Sumproduct(((B:B)="Abierto")*((A:A)>=(G4))*((A:A)<=(eomonth(G4,0))))]
Range("K5").Value = [Sumproduct(((B:B)="Abierto")*((A:A)>=(G5))*((A:A)<=(eomonth(G5,0))))]
Range("K6").Value = [Sumproduct(((B:B)="Abierto")*((A:A)>=(G6))*((A:A)<=(eomonth(G6,0))))]
Range("K7").Value = [Sumproduct(((B:B)="Abierto")*((A:A)>=(G7))*((A:A)<=(eomonth(G7,0))))]

Answer 1

Dim rng as Range

set rng = Range("K3:K7")
rng.formula= "=Sumproduct(((B:B)=""Abierto"")*((A:A)>=(G3))*((A:A)<=(eomonth(G3,0))))"

如果您选择适当的范围而不是整个列，例如 B:B、A:A，则代码将运行得更快。