如何在 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 中計數／求和儲存格？