另>>无法设置范围类的FormulaArray属性

Question

我在这里和其他网站中研究了尽可能多的“无法设置范围类的 FormulaArray 属性”问题，以解决我试图在数据表中执行的 FormulaArray 操作。

考虑到 R1C1，我在公式中遵守了 255 个字符的限制，我尝试先将公式作为文本字符串插入。我已经尝试了很多东西。

现在我认为我的问题在于我试图仅将公式插入空白单元格，因为如果我将公式简化为 =1+1，我仍然会收到错误。如果我将 .FormulaArray 更改为 .Formula 以简单地输入标准公式，我也会得到同样的错误。空白单元格不能进行此操作吗？

错误发生在.FormulaArray = myFormula1 步骤。

为了确认，手动输入单元格时，公式本身有效（在下面进一步粘贴）。

    Sub ArrayMacro()

    Dim myFormula1 As String 
    Dim myFormula2 As String 
    Dim myFormula3 As String 
    Dim myFormula4 As String 

    myFormula1 = "=IF(COUNTIFS(MLBtransactions!$D:$D,A$1,MLBtransactions!$A:$A,""<=""&$C2)>0,IF(INDEX(MLB," & "X_X_X)" 
    myFormula2 = "transactions!$A:$E,MATCH(1,(MLBtransactions!$D:$D=A$1)*(MLBtransactions!$A:$A<=$C2),0),," & "Y_Y_Y)" 
    myFormula3 = "5)=$A2,""DNP/SUS/MIN"",""with "" & INDEX(MLBtransactions!$A:$E,MATCH(A$1,MLBtransactions," & "Z_Z_Z)" 
    myFormula4 = "!$D:$D,0),5)),IF(COUNTIFS(MLBstats!$B:$B,A$1,MLBstats!$A:$A,$A2)=1,""DNP/SUS/MIN"",""LEAVE BLANK""))" 

    Sheets("Sheet1").Select  
    With Range("E2:AZ140").SpecialCells(4)
    .FormulaArray = myFormula1 
    .Replace ",X_X_X)", myFormula2 
    .Replace ",Y_Y_Y)", myFormula3 
    .Replace ",Z_Z_Z)", myFormula4 
    End With 

    End Sub

问题更新。使用With Range("E2:AZ140").SpecialCells(xlCellTypeBlanks) 而不是With Range("E2:AZ140").SpecialCells(4) 也会以同样的错误结束。

这是正在使用的完整公式

=IF(COUNTIFS(MLBtransactions!$D:$D,A$1,MLBtransactions!$A:$A,"0,IF(INDEX(MLBtransactions!$A:$E, MATCH(1,(MLBtransactions!$D:$D=A$1)*(MLBtransactions!$A:$A

使用简化代码（下面的示例）进行测试导致了实现，因为 YowE3K 指出 myFormula1 需要有效才能使程序正常工作。

Sub ArrayMacro()

Dim myFormula1 As String
Dim myFormula2 As String

myFormula1 = "=1+1" & "+2+2"
myFormula2 = "+1+1"

Sheets("Sheet1").Select
With Range("h14:h16").SpecialCells(xlCellTypeBlanks)
MsgBox .Address
.FormulaArray = myFormula1
.Replace "+2+2)", myFormula2
End With

End Sub

Answer 1

当您使用FormulaArray = ... 设置公式时，它必须是有效的公式。 （我认为在每个Replace 之后，公式也需要继续有效，但我还没有测试过。编辑：不，如果Replace 会创建一个无效的公式，它只是不处理它 - 但它不会崩溃。）

您的问题似乎都源于在您的 myFormula1 变量中使用了无效公式。

我建议你使用以下：

Sub ArrayMacro()

    Dim myFormula1 As String
    Dim myFormula2 As String
    Dim myFormula3 As String
    Dim myFormula4 As String

    myFormula1 = "=IF(COUNTIFS(MLBtransactions!$D:$D,A$1,MLBtransactions!$A:$A,""<=""&$C2)>0,IF(1232=$A2,""DNP/SUS/MIN"",""with ""&1233),1234)"
    myFormula2 = "INDEX(MLBtransactions!$A:$E,MATCH(1,(MLBtransactions!$D:$D=A$1)*(MLBtransactions!$A:$A<=$C2),0),5)"
    myFormula3 = "INDEX(MLBtransactions!$A:$E,MATCH(A$1,MLBtransactions!$D:$D,0),5)"
    myFormula4 = "IF(COUNTIFS(MLBstats!$B:$B,A$1,MLBstats!$A:$A,$A2)=1,""DNP/SUS/MIN"",""LEAVE BLANK"")"

    'Insert the formula
    With Sheets("Sheet1").Range("E2:AZ140").SpecialCells(xlCellTypeBlanks)
        .FormulaArray = myFormula1
        .Replace "1232", myFormula2
        .Replace "1233", myFormula3
        .Replace "1234", myFormula4
    End With

End Sub

Answer 2

在 VBA 中将 .FormulaArray 设置为单元格范围与在选择整个范围时按 CTRL+SHIFT+ENTER 相同。当单个公式返回结果数组并且您希望在选定单元格的范围内显示该数组时使用此选项。这需要一系列连续的单元格来显示数组。尝试在不连续的单元格区域上设置 .FormulaArray 将失败，无论公式是否正确。

我认为您正在尝试创建一个数组公式，该公式在对数组执行分析后返回单个结果；并且您希望在所有空白单元格中使用此公式。

在 Excel 中，您需要将公式以数组方式输入到单个单元格中，然后将公式复制到其他单元格中。

同样，您需要在 VBA 中分两步完成。您需要首先为一个单元格设置 .FormulaArray。这也将确认在 VBA 中正确构造了公式。然后，您可以将该单元格复制到所有空白单元格，如果您只想复制公式，请使用 PasteSpecial。

或者，您可以循环遍历所有设置 .FormulaArray 的空白单元格，例如：

Dim raCell As Range

For Each raCell In Range("E2:AZ140")
    If IsEmpty(raCell) Then raCell.FormulaArray = ...
Next

但是，由于您有动态引用，因此您需要仔细构造 FormulaArray，以根据当前 raCell 的 .Row 和 .Column 正确确定所需的公式。

如果您有“锚点”，则复制和粘贴会更安全。在您知道的某个地方，您始终可以输入完全相同的公式，并在复制并粘贴到所有其他单元格时获得正确的结果。