如何在 Excel 中計算包含文字或數字的儲存格數量？

作者Siluvia修改日期2025-11-06

當您在處理包含文字與數字混合資料的工作表時，經常需要判斷其中有多少儲存格包含文字、又有多少儲存格包含數值。無論您是在分析問卷回覆、整理資料清單，還是準備報告，這都是一項常見且關鍵的需求。Excel 提供多種實用方法，能協助您快速準確地計算特定類型內容的儲存格數量。在以下教學中，我們將帶您逐步了解各種方法，說明其適用情境、操作步驟，並提供避免常見錯誤的實用提示。

使用公式計算包含文字的儲存格數量

使用公式計算包含數字的儲存格數量

使用 VBA 程式碼（巨集）計算包含文字或數字的儲存格

使用公式計算包含文字的儲存格數量

若要計算特定範圍內包含文字值的儲存格數量，您可以使用一個能排除數值儲存格的 Excel 公式。此方法不僅適合快速統計，更廣泛適用於各類工作表，讓您輕鬆區分文字資訊與數值資料。

1. 首先選取一個空白儲存格，用於顯示計數結果。

2. 將下列公式複製並貼上至編輯欄：

=COUNTA(A1:D15)-COUNT(A1:D15)

按下 Enter 後，您將看到所選儲存格中顯示包含文字的儲存格總數。

注意：請務必根據您想計數的工作表區域，調整儲存格範圍（以上範例中的 A1:D15）。此公式會先計算所有非空儲存格，再減去包含數字的儲存格數量，從而精準得出文字儲存格的計數。由於空儲存格以及包含錯誤值或公式結果的儲存格將被 COUNTA 視為非空，建議您仔細檢查所選範圍，以確保結果準確無誤！

提示：若您的範圍包含傳回空字串（““）的公式，COUNTA 會將其視為文字並計入統計。若您需要精確計算手動輸入的文字值數量，請務必先確認資料內容。

使用公式計算包含數字的儲存格數量

當您得知文字儲存格的數量後，可能也需要計算包含數字的儲存格數量。此方法簡單直接，適用於需統計數值回覆（例如問卷分數、數量或其他以數字為基礎的資訊）的資料集。

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

1. 選取一個空白儲存格，用以顯示數字的計數結果。

2. 將下方公式複製並貼上至編輯欄：

=COUNT(A1:D15)

接著按下 Enter，即可在您選取的儲存格中顯示結果。

注意：同樣地，請根據實際工作表區域調整儲存格範圍（範例中的 A1:D15）。COUNT 函數僅計算包含數值的儲存格，並自動忽略文字或空白儲存格。若您的數字被設為文字格式，此公式將無法計入，因此務必確認儲存格格式正確，才能獲得準確結果！

提示：對於包含日期的範圍（由於 Excel 將日期儲存為序列號），COUNT 函數會將其視為數字並計入結果中。

使用 VBA 程式碼（巨集）計算包含文字或數字的儲存格

對於進階需求或處理大型資料集時，運用 VBA 巨集可大幅簡化計算包含文字或數字儲存格的流程。此方法尤其適合需在不同範圍重複執行此操作，或希望自動化工作流程的情境。此外，您還能依需求自訂計數條件。

1. 在 Excel 功能區上，點選開發人員工具（若未看見此索引標籤，請至 Excel 選項中啟用），接著選擇 Visual Basic，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 VBA 視窗中，按一下插入 > 模組，並將下列程式碼貼到模組中：

Sub CountCellsTextOrNumbers()
    Dim WorkRng As Range
    Dim xTitleId As String
    Dim cell As Range
    Dim TextCount As Long
    Dim NumberCount As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select range to count:", xTitleId, WorkRng.Address, Type:=8)
    
    TextCount = 0
    NumberCount = 0
    
    For Each cell In WorkRng
        If VBA.IsNumeric(cell.Value) And Not IsEmpty(cell.Value) Then
            NumberCount = NumberCount + 1
        ElseIf VBA.TypeName(cell.Value) = "String" And Not IsEmpty(cell.Value) Then
            TextCount = TextCount + 1
        End If
    Next
    
    MsgBox "Cells with numbers: " & NumberCount & vbCrLf & "Cells with text: " & TextCount, vbInformation, xTitleId
End Sub

3. 若要執行程式碼，請按一下執行按鈕（或按 F5），隨即會彈出對話方塊，提示您選取要計數的範圍。

此巨集會在彈出訊息方塊中，分別顯示已拆分為文字與數字的儲存格數量。程式碼會忽略空白儲存格，僅計算含有內容的儲存格。

最佳 Office 生產力工具

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