FormulaArray 产生运行时 1004 错误

Question

我正在尝试运行以下过程，该过程需要在工作表（“Slate Data”）上的范围（“CA2010”）中放置一个数组公式。

我已经多次测试了数组公式，它产生了想要的结果。

下面的子得到

运行时“1004”错误：无法设置 Range 类的 FormulaArray 属性。

Sub countuniqueBINs()

Dim placementoutlook As Workbook
Set placementoutlook = Excel.Workbooks("Placement Outlook")
Dim sdws As Worksheet
Set sdws = placementoutlook.Sheets("Slate Data")

sdws.Range("CA2010").NumberFormat = "general"
sdws.Range("CA2010").FormulaArray = "=SUM(IF(FREQUENCY(IF(SUBTOTAL(3,OFFSET(E2:E2000,ROW(E2:E2000)-ROW(E2),0,1)),MATCH(""~""&E2:E2000,E2:E2000&"""",0)),ROW(E2:E2000)-ROW(E2)+1),1))"

End Sub

我尝试根据一些指导将数组公式分成两部分，但它仍然没有解决问题。

Answer 1

错误的原因是由于相对引用，您的公式的R1C1格式版本超过了 255 个字符（即使A1样式版本比此短得多）。 如果使用绝对引用，则公式足够短，可以使用FormulaArray输入； 如果您不能这样做，则需要使用将公式拆分为多个部分的解决方法，以便您可以在输入较短版本后使用Range.Replace方法。