如何在 Excel 中計算或加總帶有刪除線的儲存格？

作者曉陽修改日期2025-07-15

在 Excel 中，常見的做法是對某些儲存格套用刪除線格式，以標示資料已過時、無關或無效。這種視覺提示能大幅提升資料管理效率，並協助您在分析時專注於重要資訊。然而，在執行計算（例如計數或加總）時，您可能希望將帶有刪除線的儲存格與未帶刪除線的儲存格分開處理。掌握這些情境的處理方式，有助於簡化工作流程並獲得更準確的洞察。本文提供多種實用方法，透過可自訂的 VBA 函數，在 Excel 中靈活地計算或加總帶有（或不帶）刪除線格式的儲存格，滿足多樣化的資料管理需求。

使用 VBA 在 Excel 中計算刪除線儲存格

使用 VBA 在 Excel 中計算非刪除線儲存格

使用 VBA 在 Excel 中加總並排除刪除線儲存格

使用 Kutools for Excel 計算或加總帶有刪除線的儲存格

在 Excel 中計算刪除線儲存格

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

若需統計特定範圍內套用刪除線格式的儲存格總數，Excel 內建函數無法直接達成此需求，因為現有公式皆無法辨識刪除線等文字格式。此時，透過 VBA 建立使用者自訂函數（UDF）便成為一種實用且高效的解決方案，特別適用於管理待辦清單、庫存更新，或任何以刪除線標示已完成、無效或過時資料點的應用情境。

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 VBA 視窗中，點擊插入 > 模組以建立新模組，然後將下列程式碼貼到模組視窗中。

VBA 程式碼：計算刪除線儲存格

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. 輸入程式碼後，請儲存您的活頁簿（以保留巨集），然後關閉 VBA 編輯器並返回工作表。接著，在任一空白儲存格中輸入下列公式（例如，用於檢查範圍）A2:B14 中帶有刪除線的儲存格）：=CountStrike(A2:B14)

提示：您可以將 A2:B14 替換為其他欲檢查的範圍。

使用自訂函數計算刪除線儲存格

4. 按下 Enter 鍵執行公式後，Excel 將立即顯示限定區域中所有刪除線儲存格的數量，讓您高效追蹤進度或視需要移除已淘汰項目。請參閱截圖：

計算刪除線儲存格的結果

注意事項：為確保此 VBA 程式碼日後仍可正常使用，請務必將檔案儲存為 .xlsm 格式（啟用巨集的 Excel 活頁簿）。

在 Excel 中計算非刪除線儲存格

在某些情況下，您可能只需要計算指定範圍內未套用刪除線格式的儲存格數量。例如，在專案追蹤表或銷售資料中，通常僅需統計有效或活躍的項目（即未帶刪除線者），以便進行後續操作。Excel 預設的 COUNT 或 COUNTA 函數無法辨識文字格式，因此透過客製化的 VBA 解決方案，才能針對此類需求實現精準掌控！

1. 按下 ALT + F11，即可啟動 Microsoft Visual Basic for Applications 視窗！

2. 前往插入> 模組以新增程式碼模組，並將下列程式碼貼到該模組視窗中。

VBA 程式碼：計算非刪除線儲存格

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. 儲存您的啟用巨集活頁簿，返回工作表，並在空白儲存格中輸入下列公式（例如，針對）A2:B14）：=countnostrike(A2:B14)，然後按下 Enter 以取得結果。Excel 將僅計算所選區域中未套用刪除線格式的儲存格。

使用自訂函數計算非刪除線儲存格

注意：上述範例中，A2:B14 為正在評估的儲存格範圍。請依您的工作表調整範圍參照。此外，合併儲存格或特殊格式有時可能影響結果——務必確認所選範圍僅包含預期的儲存格，以免產生誤差！

在 Excel 中加總並排除刪除線儲存格

處理數值資料時，若某些項目已失效或應被忽略（例如套用刪除線格式），通常只需加總有效數字。這種做法在預算表、庫存管理或任務追蹤中相當常見，其中刪除線項目代表已過時或已完成，需從總計中排除。由於 Excel 內建的 SUM 函數無法辨識儲存格是否套用了刪除線格式，因此必須透過使用者自訂的 VBA 函數來達成此需求。

1. 按下 ALT + F11，即可開啟 Microsoft Visual Basic for Applications 編輯器。

2. 點擊插入＞模組，新增模組後，將下方程式碼貼到該模組視窗中。

VBA 程式碼：加總並排除刪除線儲存格

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. 關閉 VBA 編輯器，在目標工作表中選擇一個空白儲存格，並輸入下列公式（例如針對）B2:B14）：=excstrike(B2:B14)。按下 Enter 後，Excel 將立即加總指定區域中未套用刪除線格式的儲存格，快速提供排除過時數值的精準加總結果！

使用自訂函數加總非刪除線儲存格

注意：請將 B2:B14 調整為您實際的數據範圍。此函數會忽略所有帶有刪除線的儲存格，無論其數值為何。若結果不如預期，請確認所有儲存格皆包含數值且格式正確。

實用提示：若您在變更任何儲存格的刪除線狀態後需要重新計算加總結果，請按下 F9 鍵，立即重新計算工作表！

使用 Kutools for Excel 計算或加總帶有刪除線的儲存格

如果您只想計算或加總帶有刪除線格式的儲存格，Excel 本身並未提供內建方法——但 Kutools for Excel 透過其特殊篩選功能，讓這一切變得輕而易舉！

1. 選取欄位

點擊包含刪除線格式的儲存格所在欄。

2. 開啟特殊篩選

前往 KUTOOLS PLUS 選項卡，點擊特殊篩選 > 篩選刪除線儲存格，立即體驗高效篩選功能！

3. 確認篩選條件

將出現一個對話方塊，顯示符合條件的儲存格數量。點擊確定以繼續。

kutools-filter-result

4. 檢視結果

帶有刪除線的儲存格現已篩選並可見！選取篩選範圍，您將立即在 Excel 底部的狀態欄中看到總和、平均值與計數。

kutools-count-sum

✨ 為什麼選擇 Kutools？

Kutools for Excel 提供超過 300 項強大又直覺的功能，就像此功能一樣——無需撰寫複雜的公式或 VBA 程式碼，即可為您節省寶貴時間、大幅提升工作效率。

無論是依格式篩選、清理資料、合併工作表，還是批次編輯，Kutools 都能在幾秒內輕鬆簡化您的工作流程。

免費試用 Kutools for Excel 30 天，立即體驗您錯過的強大功能！

相關文章：

如何在 Excel 的儲存格範圍中加總或計算格式為粗體的數字？

如何在 Excel 中根據儲存格的背景顏色進行計數與加總？

如何在 Excel 中根據字體顏色對儲存格進行計數或加總？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多