當工作表中包含大量多單元格數組公式時,有時為了方便編輯這些數組公式,可能希望將工作表中的數組公式單獨標記出來,以區分非數組公式,這時可以用下面的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
運行上述代碼,活動工作表中所有包含數組公式的單元格就會用淺藍色標記出來。