如何在 Excel 中刪除所有資料,同時保留公式?
Excel 是管理資料的多功能利器,但有時您需要清除工作表中的所有資料,同時保留公式。這在處理範本或報表時尤其實用,因為其結構與計算邏輯必須完整保留。本指南將逐步介紹幾種簡易方法,協助您快速刪除所有資料,同時確保公式不受影響。
使用 Excel 的「定位條件」功能刪除所有資料但保留公式
使用 KUTOOLS AI 助手刪除所有資料但保留公式
使用 VBA 巨集(適用於自定義範圍或工作表)刪除所有資料但保留公式
使用 Excel 的「定位條件」功能刪除所有資料但保留公式
雖然 Excel 未內建一鍵移除所有儲存格內容(僅保留公式)的功能,但您可善用實用的「定位條件」功能,系統性地選取指定範圍內所有非公式儲存格(即常數),再透過幾個簡單步驟輕鬆清除。
此方法特別適合中等規模的範圍,例如更新重複使用的模板,或在每個報告週期前清理報表。無論公式多麼複雜、版面如何編排,皆能完整保留所有基於公式的計算結果。然而,若應用於極大型工作表,為避免效能延遲,建議分段重複執行此流程。
1. 首先選取您要清除資料但保留公式的範圍。為獲得最大控制權,可點擊左上角的「全選」三角形以選取整個工作表,或依需求僅選取特定資料區域。接著同時按下 Ctrl+G,開啟定位對話方塊;在對話方塊中,點擊特殊按鈕,即可開啟定位條件對話方塊。詳情請參閱下方截圖:

2. 在定位條件對話方塊中,選取常數,並點擊確定。此操作將選取您所選範圍內所有包含手動輸入值的儲存格,而包含公式的儲存格則不受影響。

3. 一旦所有常數(非公式資料)被標示出來,只需按下鍵盤上的 Delete 鍵即可清除;或者,您也可以按一下滑鼠右鍵,從快捷選單中選擇刪除。此時,選取區域中除公式外的所有資料都會被移除——此操作僅會清除可見的數值與文字,絕不影響公式儲存格的內容!
提示:若您的工作表包含與資料相關的格式設定(例如使用條件格式或儲存格色彩),清除常數時這些格式將不受影響。請確認選取範圍,確保僅清除所需儲存格。
注意事項:此操作無法復原!執行前務必先儲存檔案,或複製工作表作為備份。若不慎清除非預期的儲存格,請立即使用 Ctrl+Z 還原。
使用 KUTOOLS AI 助手刪除所有資料但保留公式
運用極其實用的 KUTOOLS AI 助手,能以智慧方式一鍵清除所有資料項目,同時自動保留公式,大幅簡化您的工作流程!此便捷功能特別適合經常製作報表或標準化範本的使用者——無需手動選取,立即提升效率與準確性!
安裝 Kutools for Excel 後,請依下列步驟啟動 KUTOOLS AI 助手窗格:點擊 Kutools > AI 助手。AI 助手面板提供簡潔直覺的文字介面,讓您輕鬆輸入專屬需求!
- 選取您要處理的數據範圍,可以是任意連續區域、表格,或視需要直接選取整個工作表。
- 在聊天框中輸入明確指令,例如:
刪除選取範圍內的所有資料,但保留公式。 - 按下 Enter 鍵,或點擊傳送按鈕。KUTOOLS AI 將迅速分析您的請求,識別所選區域中的所有常數,並準備執行操作,完整保留所有公式。分析完成後,點擊執行按鈕即可完成處理。立即檢閱結果:公式與結構化計算完好如初,其餘資料皆已清除!
實用提示:KUTOOLS AI 助手能準確理解各式自然語言指令。您可進一步微調指令,針對特定工作表或範圍清除資料,甚至依專業工作流程需求排除特定類型的內容。若需還原操作,只需使用 Excel 的「還原」功能即可。處理完成後,務必確認所選範圍,確保僅刪除常數,並完整保留所有公式。
使用 VBA 巨集(適用於自定義範圍或工作表)刪除所有資料但保留公式
若您需要跨多個範圍、整個工作表自動執行此操作,或需頻繁重複此動作,使用 VBA 巨集將是穩健又彈性的絕佳選擇。此方法能根據您選取的範圍或整個工作表,一鍵清除所有儲存格數值(僅保留公式),完美適用於範本準備、定期資料更新及大型資料集等實際應用場景。
1. 首先開啟 Excel,並按下 Alt + F11 以開啟 Visual Basic for Applications 編輯器。在 VBA 視窗中,點擊插入> 模組,即可建立新模組。請將下列程式碼複製並貼上至該模組中:
Sub ClearAllDataButFormulas()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim answer As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ws = Application.InputBox("Enter Worksheet Name to Clear Data:", xTitleId, ActiveSheet.Name, Type:=2)
If ws Is Nothing Then
Set ws = ActiveSheet
End If
Set rng = Application.InputBox("Select the range to clear (leave blank for whole sheet):", xTitleId, ws.UsedRange.Address, Type:=8)
If rng Is Nothing Then
Set rng = ws.UsedRange
End If
Application.ScreenUpdating = False
For Each cell In rng
If Not cell.HasFormula Then
cell.ClearContents
End If
Next
Application.ScreenUpdating = True
MsgBox "All data (except formulas) have been cleared!", vbInformation, xTitleId
End Sub 2. 加入程式碼後,點擊
執行按鈕(或按下 )F5)以執行巨集。系統將顯示對話方塊,提示您輸入要清除資料的工作表名稱;若您希望使用目前工作表,只需點選確定即可。接著會出現另一個提示,詢問是否指定特定範圍;若留空,巨集將自動處理整個工作表。隨後,巨集將遍歷所選範圍,清除所有儲存格內容(僅保留含公式的儲存格)。
提示與注意事項:
- 此巨集會自動避免清除公式,無論公式是否引用其他工作表或包含陣列邏輯,皆能正常運作。
- 若發生錯誤,請檢查輸入內容中的工作表名稱與範圍選取是否正確。輸入錯誤的工作表名稱或無效的儲存格參照,可能導致巨集跳過操作,甚至影響非預期的區域。
- 若需經常使用,可將此巨集儲存至您的個人巨集活頁簿,日後便能在所有活頁簿中隨時取用。
在 Excel 中清除所有資料但保留公式,是維持高效試算表環境的必備技能。無論您偏好透過「定位條件」手動選取、運用 Kutools 的 AI 驅動解決方案,還是採用自動化 VBA 巨集,每種方法皆針對不同使用情境提供獨特優勢。清除資料後,務必檢閱工作表,確保公式仍正確無誤且結構完整;若出現問題,請立即確認所選區域並使用還原功能。
若您有興趣探索更多 Excel 技巧與進階自動化功能,我們的網站提供數千篇教學文章,助您輕鬆掌握高效辦公秘訣!
相關文章:
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用