KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何計算儲存格中字元、字母與數字的數量?

作者修改日期

在 Excel 中管理資料時,經常需要分析儲存格中的文字內容,例如計算總字元數、僅統計字母數量,或專注於數字的計數。本指南將介紹多種實用方法,協助您輕鬆計算儲存格中的總字元數、字母數、數字數,甚至特殊符號的數量。根據您的實際需求,這些方法各具特色與優勢,涵蓋從簡單的 Excel 公式、內建功能,到 VBA 與進階函數的完整解決方案。文末更提供適用於進階自動化及條件格式任務的補充技巧。


使用 LEN 函數計算字元數量

若您需要計算每個儲存格中所有字元(包括數字、字母、空格將及其他符號)的總數,可使用 LEN 函數。此方法適用於需強制執行表單欄位的文字長度限制,或為符合資料匯入的字元數上限而預先準備資料等情境。

1. 在空白儲存格中輸入下列公式(例如,若您的資料位於 A1 儲存格,請於 B1 儲存格輸入):

=LEN(A1)

按下 Enter,即可顯示 A1 儲存格中包含空格與標點符號在內的字元總數。
使用 LEN 函數計算字元數量

2. 向下或向右拖曳填滿控點,即可將公式套用至其他儲存格,批次計算清單中各儲存格的字元數,方便快速驗證與審查。
將公式拖曳至其他儲存格

kutools for excel AI 的螢幕截圖

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

  • 智慧執行:透過簡易指令,輕鬆執行儲存格操作、分析資料,並建立圖表!
  • 自訂公式:打造專屬公式,讓您的工作流程更順暢!
  • VBA 編碼:輕鬆撰寫並套用 VBA 程式碼,立即提升工作效率!
  • 公式解析:輕鬆掌握複雜公式!
  • 文字翻譯:輕鬆打破試算表中的語言隔閡!
運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效!

使用 LEN 函數計算非數字字元的數量

若您只想計算非數字字元(例如僅統計字母與標點符號),可採用以下方法。當您需要提取文字資料並忽略數字時(例如符合特定合規或報表規範),此方法尤為實用。

選取一個空白儲存格(如 B1),並輸入此公式:

=LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,0,""),1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""))

(如有需要,請將 A1 替換為目標儲存格。)輸入公式後,按下 Enter,再利用填滿控點將公式複製至範圍內的其他儲存格,即可輕鬆取得各儲存格中除數字外的所有字元數量。
計算所有非數字字元的數量

提示:若遇到錯誤或異常結果,請仔細檢查是否存在換行符或其他不間斷空格等隱藏字元,因為這些字元可能會影響字元計數結果。


使用 LEN 函數計算純數字的數量

有時您需要精確掌握儲存格中出現了多少個數字(忽略所有其他類型的字元),這在資料清理時尤為關鍵,例如用於識別包含預期位數數字的儲存格(如身分證號碼或代碼)。

在空白儲存格(如 B1)中輸入下列公式:

=SUM(LEN(A1)-LEN(SUBSTITUTE(A1,{1,2,3,4,5,6,7,8,9,0},)))

按下 Enter 即可計算結果,並可視需要使用填滿控點,輕鬆將公式複製至其他儲存格。
僅計算數字的數量


使用函數計算字母與數字的數量

此方法不僅提供總計數,更能精準識別儲存格內容中字母與數字的排列順序,特別適用於驗證代碼、序號或混合字母數字序列的結構。

1. 按住 ALT 鍵,再按下 F11,即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 VBA 編輯器中,點擊插入 > 模組,並將提供的 VBA 程式碼貼上至模組視窗中。

VBA:使用函數計算字母與數字的數量

Function AlphaNumeric(pInput As String) As String
'Updateby20140303
Dim xRegex As Object
Dim xMc As Object
Dim xM As Object
Dim xOut As String
Set xRegex = CreateObject("vbscript.regexp")
xRegex.Global = True
xRegex.ignorecase = True
xRegex.Pattern = "[^\w]"
AlphaNumeric = ""
If Not xRegex.test(pInput) Then
    xRegex.Pattern = "(\d+|[a-z]+)"
    Set xMc = xRegex.Execute(pInput)
    For Each xM In xMc
        xOut = xOut & (xM.Length & IIf(IsNumeric(xM), "N", "L"))
    Next
    AlphaNumeric = xOut
End If
End Function

3. 儲存 VBA 程式碼並關閉編輯器。在空白儲存格中輸入公式 =AlphaNumeric(A1)(如有需要,請將 A1 替換為目標儲存格),然後按下 Enter。視需要使用填滿控點快速複製公式!
輸入公式以計算字母和數字的數量

提示:

(1)「L」代表字母,「N」代表數字。
(2) 此 VBA 無法處理 !、@、# 等特殊符號。若字串包含多種類型的字元,建議先進行資料預處理,或參閱後續章節中提供的更新版 VBA 解決方案。


使用 COUNTCHAR 函數計算特定字元的出現次數

若需計算某個特定字元(例如「n」或其他符號或字母)在字串中出現的頻率,可使用 Kutools for ExcelCOUNTCHAR 函數,其簡潔易用的介面能大幅簡化作業流程。當您經常需要進行此類計數,或希望減輕手動管理公式的負擔時,此方法尤其高效!

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

安裝 Kutools for Excel 後,請依照下列步驟操作:(立即免費下載 Kutools for Excel!)

1. 在儲存格中輸入您要計數的字元。
輸入要計算的字元

2. 選取一個空白儲存格作為結果位置,然後點擊 Kutools > 增強函數 > 統計與數學 > COUNTCHAR
點擊 Kutools 的 COUNTCHAR 功能

3. 在函數引數對話方塊中,於 Find_text 欄位選取要搜尋的字元儲存格,並於 Within_text 欄位選取原始文字儲存格,計數結果將立即顯示!
在對話方塊中指定儲存格參照

4. 點擊確定後,結果就會顯示在所選儲存格中。

透過 Kutools 取得結果

在增強函數中,您還能依據儲存格的背景色或字體顏色來彙總與處理資料,並快速轉換時間格式,大幅提升操作便利性,輕鬆簡化 Excel 中的複雜作業。

  計算字串中特定字元的出現次數

 

VBA:計算儲存格中的字母、數字及特定字元類型(大寫、小寫)

此方法適用於需要高度自訂計數的情境,例如區分大小寫字母、篩選符號、數字,甚至空白字元,非常適合用於稽核、複雜資料驗證,或分析大型資料集的一致性。

1. 點擊「開發人員」>「Visual Basic」開啟 VBA 編輯器,接著點擊「插入」>「模組」,並將下列程式碼貼到模組中:

Function CountCharType(cell As Range, Mode As String) As Long
    Dim i As Integer
    Dim s As String
    Dim res As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    s = cell.Value
    Mode = LCase(Mode)
    res = 0
    
    For i = 1 To Len(s)
        Select Case Mode
            Case "letter"
                If Mid(s, i, 1) Like "[A-Za-z]" Then
                    res = res + 1
                End If
            Case "number"
                If Mid(s, i, 1) Like "[0-9]" Then
                    res = res + 1
                End If
            Case "uppercase"
                If Mid(s, i, 1) Like "[A-Z]" Then
                    res = res + 1
                End If
            Case "lowercase"
                If Mid(s, i, 1) Like "[a-z]" Then
                    res = res + 1
                End If
            Case "space"
                If Mid(s, i, 1) = " " Then
                    res = res + 1
                End If
            Case "symbol"
                If Not (Mid(s, i, 1) Like "[A-Za-z0-9 ]") Then
                    res = res + 1
                End If
        End Select
    Next
    
    CountCharType = res
End Function

2. 在工作表的空白儲存格中輸入公式(例如)=CountCharType(A1, "uppercase"))。您也可使用 「letter」「number」「lowercase」「space」「symbol」來取得特定字元類型的計數。按下 Enter 後,視需要向下拖曳公式以套用至其他列。


使用條件格式:醒目提示超過字元或數字閾值的儲存格

運用條件格式,可視覺化標示符合特定字元計數條件的儲存格,例如突顯長度超過指定字元數的項目,或包含逾指定數量數字的儲存格。此功能在品質控管、審查問卷回覆、針對無效輸入發出警示,以及稽核匯入資料時極具價值。

例如,要醒目提示字元數超過 18 的儲存格:

1. 選取您要分析的範圍(例如 A1:A100)。

2. 點擊開始 使用條件格式 新增規則

3. 選擇使用公式決定要格式化哪些儲存格,並輸入下列公式:

=LEN(A1)>18

4. 點擊格式,選擇醒目提示樣式,再點擊確定以套用設定。現在,此範圍內內容超過 18 個字元的儲存格將會醒目顯示。

同樣地,您也可以設定規則,醒目提示包含超過 5 個數字(數值)的儲存格:

=SUMPRODUCT(--ISNUMBER(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789")))>5

將此輸入為條件格式的公式,並視需要將 5 替換為其他臨界值。此方法最適合用於大型清單中的視覺監控與即時回饋!

注意:使用條件格式雖無法直接顯示計數,卻非常適合用於審閱與資料品質相關任務!


結合並套用這些解決方案,即可在 Excel 中輕鬆執行從簡易到進階的文字分析。處理多語系資料或包含非標準字元的儲存格時,結果可能有所差異—特別是在存在特殊 Unicode 字元或非預期空白字元的情況下。若需進行動態分析或重複性作業,建議將進階公式或 VBA 儲存至您的個人巨集活頁簿中。

相關文章:

最佳 Office 生產力工具

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

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用