这个比较简单，同样也是遍历一下，判断一个有内容的区域中，每个单元格是否包含公式，如果有公式就提取出来，统一放到第一张表，最好自己新建一张空白表！或者我们在代码中处理！

'-作者：E精精
'-公众号：Excel办公实战
'---------------------------------
Sub 获取工作表中的全部公式()
    Dim rng As Range, n As Long
    For Each rng In Sheets("案例1").UsedRange
        If rng.HasFormula Then
            n = n + 1
            Sheets(1).Cells(n, 1).Value = "'" & rng.Formula
        End If
    Next
End Sub