如何在 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 中將文字字串轉換為公式？