如何在 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. 然后单击 确定，所选区域中的公式会立即列在一个新工作表中，位于当前活动工作表之前，包含单元格地址、公式和值的信息，如下截图所示：

相关文章：

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

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