不能设置类 Range的FormulaArray属性

王跃峰

Sub totalSales()
Dim ingLastRow As Long
'筛选，获取列A中不重复的数值
Range("A1:D16").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("G1"), _
Unique:=True
'找到列G中的最后一行
ingLastRow = Range("G" & Rows.Count).End(xlUp).Row
'使用数组公式统计销售量
Range("H2").FormulaArray = "=SUM(R2C1:R16C1=RC[-1]) *R2C4:R16C4)"
Range("H2").Copy Destination:=Range("H3:H" & ingLastRow)
End Sub
红色处提示不能设置类 Range的FormulaArray属性，这可是抄写https://mp.weixin.qq.com/s/RldGU4jldJdq8uPp9FGX7w的

王跃峰

已解决！应为Range("H2").FormulaArray = "=SUM((R2C1:R16C1=RC[-1])*R2C4:R16C4)"

smiletwo

王跃峰 发表于 2023-3-2 14:28
已解决！应为Range("H2").FormulaArray = "=SUM((R2C1:R16C1=RC[-1])*R2C4:R16C4)"

语法没通过