當工作表中包含大量多單元格數(shù)組公式時,有時為了方便編輯這些數(shù)組公式,可能希望將工作表中的數(shù)組公式單獨標記出來,以區(qū)分非數(shù)組公式,這時可以用下面的VBA代碼來實現(xiàn)。
選擇包含數(shù)組公式的工作表,按Alt+F11,打開VBA編輯器,在右側(cè)代碼窗口中輸入下列代碼:
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
運行上述代碼,活動工作表中所有包含數(shù)組公式的單元格就會用淺藍色標記出來。
|