在Excel工作表中查找所有数组公式

有没有一种方法来查找给定的Excel电子表格中的所有数组公式？

Answer 1

看看这个例子。 希望它有帮助。

Sub array_formula() Dim rRange As Range, cell As Range Dim tot As Integer Set rRange = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas) For Each cell In rRange If cell.HasArray Then MsgBox cell.Address & " " & cell.formula tot = tot + 1 End If Next cell MsgBox "total number of array formula: " & tot End Sub