9

特定の Excel スプレッドシートですべての配列数式を検索する方法はありますか?

4

2 に答える 2

11

この例を見てください。それが役立つことを願っています。

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
于 2011-05-09T16:26:40.507 に答える