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

如何在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中将文本字符串转换为公式？