如何在Excel中列出所有公式？

通常，在Excel中，我们可以在单元格中快速显示公式，但是Excel不提供用于在工作表中列出所有公式的功能。 列出工作表的所有公式可以帮助我们使用其实际公式跟踪单元格值。 在这里，我可以讨论创建VBA代码来解决此问题。

列出带有VBA代码的工作表的所有公式

列出带有VBA代码的工作表的所有公式

以下VBA代码将帮助您列出选择或工作表的公式，请执行以下操作：

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：列出工作表的所有公式

Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
    xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    xSheet.Cells(xRow, 2) = " " & Rng.Formula
    xSheet.Cells(xRow, 3) = Rng.Value
    xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub

3。 然后按 F5 键以运行此代码，然后会弹出提示框，提醒您选择要列出其公式单元格的范围或整个工作表，请参见屏幕截图：

4。 然后点击 OK，您选择的公式已经在活动工作表前面的新工作表中立即列出，其中包含单元格地址，公式和值的信息，如以下屏幕截图所示：

相关文章：

如何在Excel中将公式转换为文本字符串？

如何在Excel中将文本字符串转换为公式？