當(dāng)工作表中包含大量多單元格數(shù)組公式時(shí),有時(shí)為了方便編輯這些數(shù)組公式,可能希望將工作表中的數(shù)組公式單獨(dú)標(biāo)記出來,以區(qū)分非數(shù)組公式,這時(shí)可以用下面的VBA代碼來實(shí)現(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
運(yùn)行上述代碼,活動(dòng)工作表中所有包含數(shù)組公式的單元格就會(huì)用淺藍(lán)色標(biāo)記出來。