Skip to main content

如何在 Excel 中計算或求和帶刪除線的單元格?

Author: Xiaoyang Last Modified: 2025-07-21

在 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 窗口中,點擊 插入 > 模組 來創建一個新的模組,然後將以下代碼粘貼到模組窗口中。

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 更改為您想要檢查的任何其他範圍。

count strikethrough cells with user defined function

4. 按下 Enter 鍵執行公式,Excel 將立即顯示指定範圍內所有帶刪除線單元格的計數。這使您可以高效地追蹤進度或根據需要移除棄用的條目。請參見截圖:

count strikethrough cells result

注意:為了確保此 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 將只計算所選範圍內未應用刪除線格式的單元格。

count non strikethrough cells with user defined function

注意:在上述示例中,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 將只對指定範圍內未應用刪除線格式的單元格進行求和,立即提供排除過時值的總和。

sum non strikethrough cells with user defined function

注意:根據您的實際數據範圍調整 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 中計算或求和單元格?

最佳辦公效率工具

🤖 Kutools AI 助手:基於智能執行方式革新數據分析:智能執行   |  生成代碼  |  創建自訂公式  |  分析數據並生成圖表  |  調用 Kutools 函數
熱門功能查找、標記重複值或識別重複項   |  刪除空行   |  合併列或單元格而不丟失數據   |   四捨五入無需公式 ...
高級 LOOKUP多條件 VLookup    多值 VLookup  |   多表查找   |   模糊查找 ....
高級下拉列表快速創建下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
列管理器添加特定數量的列  |  移動列  |  切換隱藏列的可見狀態  |  比較區域和列 ...
特色功能網格聚焦   |  設計檢視   |   增強編輯欄    工作簿與工作表管理器   |  資源庫(自動文本)   |  日期提取器   |  合併資料   |  加密/解密儲存格    按列表發送電子郵件   |  超級篩選   |   特殊篩選(篩選粗體/斜體/刪除線...) ...
頂級 15 種工具集12 個文本工具添加文本刪除特定字符、...)   |   50+ 圖表 類型甘特圖、...)   |   40+ 實用 公式基於生日計算年齡、...)   |   19 個插入工具插入QR碼根據路徑插入圖片、...)   |   12 個轉換工具金額轉大寫匯率轉換、...)   |   7 個合併與分割工具高級合併行分割儲存格、...)   |   ... 還有更多

使用 Kutools for Excel 提升您的 Excel 技巧,體驗前所未有的高效。 Kutools for Excel 提供超過 300 種高級功能來提高生產力並節省時間。  點擊這裡獲取您最需要的功能...


Office Tab 將標籤式界面帶到 Office,讓您的工作更加輕鬆

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
  • 在同一窗口的新標籤中打開和創建多個文檔,而不是在新窗口中。
  • 將您的生產力提高 50%,每天為您減少數百次鼠標點擊!