如何在 Excel 中計算／求和帶刪除線的儲存格？

在 Excel 中，通常會對某些儲存格應用刪除線格式，以將數據標記為過時、不相關或無效。這種視覺提示可以大大改善數據管理，並幫助您在分析過程中專注於重要的信息。然而，當涉及到進行計算（例如計數或求和）時，您可能希望將帶刪除線的儲存格結果與沒有刪除線的分開。了解如何處理這些情況可以簡化您的工作流程，並帶來更準確的洞察。本文提供了幾種實用的方法，使用可自定義的 VBA 函數來計算和求和帶有或不帶刪除線格式的儲存格，滿足不同數據管理需求。

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

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

使用 VBA 在 Excel 中求和排除帶刪除線的儲存格

使用 Kutools for Excel 計算或求和帶刪除線的儲存格

在 Excel 中計算帶刪除線的儲存格

如果您需要確定在特定範圍內已格式化為帶刪除線的儲存格總數，這無法直接通過 Excel 的內建函數實現，因為沒有公式能識別像刪除線這樣的文本格式。因此，使用 VBA 中的用戶定義函數 (UDF) 成為了一個實際的解決方案。這種方法在管理待辦事項列表、庫存更新或任何使用刪除線來表示完成、無效或過時數據點的情況下特別有用。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在 VBA 窗口中，單擊 Insert > Module 以創建一個新模塊，然後將以下代碼粘貼到模塊窗口中。

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. 轉到 Insert > Module 添加新的代碼模塊。將以下代碼粘貼到該模塊窗口中。

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. 單擊 Insert > Module 添加模塊，並將以下代碼粘貼到該模塊窗口中。

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 通過其 Special Filter 功能輕鬆實現。

1. 選擇列

單擊包含帶刪除線格式的儲存格的列。

2. 打開 Special Filter

轉到 Kutools Plus 標籤，然後單擊 Special Filter > Filter Strikethrough。

3. 確認篩選

將出現一個對話框，顯示符合條件的儲存格數量。單擊「確定」繼續。

4. 查看結果

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

✨為什麼使用 Kutools？

Kutools for Excel 提供了超過 300 種強大且易於使用的功能，就像這個一樣——幫助您節省時間並提高生產力，而無需編寫複雜的公式或 VBA 代碼。

無論您是根據格式進行篩選、清理數據、合併工作表還是批量編輯，Kutools 都能在幾秒鐘內簡化您的工作。

 免費試用 Kutools for Excel 30 天，探索您錯過的功能！

相關文章：

如何在 Excel 中的一個儲存格範圍內求和／計數粗體數字？

如何根據背景顏色在 Excel 中計數和求和儲存格？

如何根據字體顏色在 Excel 中計數／求和儲存格？

最佳 Office 生產力工具

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

使用 Kutools，語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言！

運用 Kutools for Excel，全面提升您的 Excel 技能，體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能，讓您提升工作效率、節省時間。 點此尋找您最需要的功能...

查看更多 Kutools for Excel 詳情... 免費下載...

---

Office Tab 為 Office 帶來分頁介面，讓您的工作更加輕鬆簡單

• 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀。
• 在同一視窗的新分頁中打開與創建多份文件，而非開啟新視窗。
• 提升您的生產力50%，每日可幫您減少數百次鼠標點擊！

查看更多 Office Tab 詳情... 免費下載...

---

所有 Kutools 外掛，一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛，外加 Office Tab Pro，非常適合需要跨 Office 應用程式協同作業的團隊。

• 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
• 一鍵安裝，一份授權 — 幾分鐘完成設置（支援 MSI）
• 協同運作更順暢 — Office 應用間無縫提升生產力
• 30 天全功能試用 — 無需註冊、無需信用卡
• 最超值 — 一次購買，節省單獨外掛費用

查看更多 Kutools for Office 詳情... 免費下載...