如何計算/求和Excel中的刪除線單元格？

在Excel中，我們總是格式化某些單元格的刪除線格式，以指示單元格值無用或無效，以便我們可以更準確地分析數據。 在本文中，我將討論如何使用Excel中的這些刪除線單元格在範圍內進行一些計算。

計算Excel中的刪除線單元格

在Excel中沒有刪除線單元格的計數

總和排除Excel中的刪除線單元格

計算Excel中的刪除線單元格

如果要知道一個範圍中有多少具有刪除線格式的單元格，可以創建一個用戶定義函數，請執行以下步驟：

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

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

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。 然後保存並關閉此代碼，並返回到工作表，然後輸入此公式 = CountStrike（A2：B14） 到空白單元格，請參見屏幕截圖：

4.然後按 Enter 鍵，並且所有刪除線單元都已計數。 看截圖：

在Excel中沒有刪除線單元格的計數

但是，有時候，您可能只想計算除刪除線單元格以外的正常單元格的數量。 以下代碼可以為您提供幫助。

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） 放入空白單元格，然後按 Enter 鍵，那麼您將獲得所需的結果。

備註：在上述公式中， A2：B14 是您要應用公式的範圍。

總和排除Excel中的刪除線單元格

因為刪除線單元格未使用，所以在這裡，我只想對正常數字求和而不刪除線。 要解決此任務，您還需要一個用戶定義函數。

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。 然後保存並關閉此代碼，返回工作表，鍵入以下公式 = excstrike（B2：B14） 放入空白單元格，然後按 Enter 鍵，您將獲得所有數字的總和，而沒有刪除線單元格。 看截圖：

備註：在上述公式中， B2：B14 是要對不帶刪除線格式的單元格求和的範圍。

相關文章：

如何在Excel中的一系列單元格中求和/計數粗體數字？

如何在Excel中根據背景色對單元格進行計數和求和？

如何根據Excel中的字體顏色對單元格進行計數/求和？