用颜色标记包含数组公式的单元格

当工作表中包含大量多单元格数组公式时，有时为了方便编辑这些数组公式，可能希望将工作表中的数组公式单独标记出来，以区分非数组公式，这时可以用下面的VBA代码来实现。
    选择包含数组公式的工作表，按Alt+F11，打开VBA编辑器，在右侧代码窗口中输入下列代码：
    Sub ColorArray()
    Dim rCell As Range
    For Each rCell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        If rCell.HasArray Then rCell.Interior.ColorIndex = 37
    Next rCell
    End Sub
    运行上述代码，活动工作表中所有包含数组公式的单元格就会用浅蓝色标记出来。