通常，在Excel中，我们可以在单元格中快速显示公式，但是Excel不提供用于在工作表中列出所有公式的功能。 列出工作表的所有公式可以帮助我们使用其实际公式跟踪单元格值。 在这里，我可以讨论创建VBA代码来解决此问题。
通常，在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 Sub3。 然后按 F5 键以运行此代码，然后会弹出提示框，提醒您选择要列出其公式单元格的范围或整个工作表，请参见屏幕截图：
4。 然后点击 OK，您选择的公式已经在活动工作表前面的新工作表中立即列出，其中包含单元格地址，公式和值的信息，如以下屏幕截图所示：
相关文章：
如何在Excel中将公式转换为文本字符串？
如何在Excel中将文本字符串转换为公式？
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
