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

Author: Xiaoyang Last Modified: 2025-08-23

一般來說，在 Excel 中，我們可以快速顯示儲存格中的公式，但 Excel 並未提供列出工作表中所有公式的功能。列出工作表中的所有公式可以幫助我們追蹤儲存格值及其對應的實際公式。在此，我將介紹如何通過建立 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 鍵執行此程式碼，隨後會彈出一個提示框，提醒您選擇要列出其公式儲存格的範圍或整個工作表，如下圖所示：

a screenshot of selecting a range after running the VBA code

4. 然後點擊確定，您所選定範圍內的公式將立即被列在一個新工作表中，該工作表位於您目前活動工作表的前面，其中包含儲存格地址、公式和值等資訊，如下圖所示：

a screenshot showing the formula list in a new worksheet

如何在 Excel 中將公式轉換為文字字串？

如何在 Excel 中將文字字串轉換為公式？

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多