我有以下代码，但我还没有找到优化它的方法。有什么建议吗？
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))))]
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(，代码将运行得更快。