Системный и Бизнес-анализ

Макрос. Список всех формул активного листа.



Специально для нашей подписчицы мы разработали макрос, создающий список всех формул активного рабочего листа. Список создается на новом рабочем листе. Прикладываем листинг кода, может будет полезен и вам.

Sub СписокФормул()

    Dim InputRange As Range

    Dim OutputSheet As Worksheet

    Dim OutputRow As Long

    Dim Cell As Range

    

    Set InputRange = ActiveSheet.UsedRange

    Set OutputSheet = Worksheets.Add

    OutputRow = 1

    

    For Each Cell In InputRange

        If Cell.HasFormula Then

            OutputSheet.Cells(OutputRow, 1) = "'" & Cell.Address

            OutputSheet.Cells(OutputRow, 2) = "'" & Cell.Formula

            OutputRow = OutputRow + 1

        End If

    Next Cell

End Sub

#макрос #списокформул