使用 VBA 将 Excel 2010 公式转换为数组

Question

早安，

我整天都在寻找这个，但只能找到手动解决方法。

当我在 Excel 2010 中刷新我的表格数据时，它会导致我的公式中出现 #N/A，从而对一些数据进行排名。我现在已经创建了公式的文本副本，我可以将其复制回来，但是数组公式需要我为每一行按 F2 和 CSE。

如何让 VBA 使用单元格中的当前公式，只需添加 {} 以确保它再次是数组公式？

典型的公式如下所示

    =sum(1*($G36<$G$2:$G$43))+1+IF(ROW($G36)-ROW($G$2)=0,0, SUM(1*        
    ($G36=OFFSET($G$2,0,0,INDEX(ROW($G36)-ROW($G$2)+1,1)-1,1))))

这意味着每一行中的每个公式都是唯一的。

所以我基本上是在寻找可以更改我选择的列中所有突出显示的单元格的 VBA 脚本。

谢谢！

Answer 1

选择您要更改的单元格并运行：

Sub dural()
    Dim r As Range
    For Each r In Selection
        r.FormulaArray = r.Formula
    Next r
End Sub