在 Excel 中结合使用 COUNTIF 和 LEFT 函数，统计以特定字符开头的单元格

在 Excel 中处理大型数据集时，您常常需要统计某个区域内以特定字符（字母或数字）开头的单元格数量。这一操作在对产品代码、名称或遵循特定模式的分类条目进行分组、细分或快速分析时尤为实用。例如，所有以某字母开头的项目或员工姓名，均可通过合适的 Excel 函数或工具高效筛选并统计。本教程将为您介绍多种实用方法，助您轻松统计以特定字符开头的单元格数量——包括传统公式、专用 Excel 加载项工具，以及适用于高级场景的 VBA 代码。每种方法各具优势，您可根据自身需求和数据场景灵活选择最合适的方式。

使用公式统计以特定字符开头的单元格
一项可轻松统计以特定字符开头的单元格的出色功能
用于统计以特定字符开头的单元格的 VBA 宏

使用公式统计以特定字符开头的单元格

假设您有一个如下图所示的文本字符串列表，需要统计其中以字符“K”开头的单元格数量。这在进行数据验证、列表检查，或筛选符合命名规则的代码时是一项常见任务。

要快速完成此任务，您可以结合使用 Excel 的 COUNTIF 和 LEFT 函数（或使用数组公式组合），轻松识别出满足“开头为”条件的单元格。

1. 选择一个空白单元格用于显示统计结果，将以下公式复制并粘贴到该单元格中，然后按 Ctrl + Shift + Enter（在某些 Excel 版本中，这是一个数组公式）即可获取结果。

=COUNT(IF(LEFT(A2:A6,1)="K",1,""))

注意：

• 1) A2:A6 是包含待评估文本字符串的区域。1 表示仅比较第一个字符。将 K 替换为您所需的任意字符。您可根据实际数据灵活调整区域和目标字符。
• 2) 如果在旧版 Excel 中忘记使用 Ctrl + Shift + Enter，公式可能无法按预期计算；而在 Microsoft 365 和 Excel 2021 中，数组通常会自动溢出。
• 3) 以下公式也可能有帮助，具体取决于您的版本和偏好：
  =COUNTIF(A2:A6,"K*")
  此公式使用通配符，可匹配 A2:A6 区域中所有以“K”开头的值，无需数组输入。
  =SUMPRODUCT(--(LEFT(A2:A6,1)="K"))
  如果您希望使用数组公式的替代方案，此公式非常实用，因为 SUMPRODUCT 原生支持数组运算。

实用技巧：若需统计以其他字符或多个起始字符开头的单元格，只需调整 LEFT 函数中的数字（例如 ）LEFT(A2:A6,2)（表示提取前两个字符），并相应调整目标字符串。请务必确保源数据开头不含多余空格，以免影响统计结果的准确性。

一项可轻松统计以特定字符开头的单元格的出色功能

1. 选择要检查的单元格区域，然后转到 Kutools 选项卡，单击选择> 选择指定单元格。请参见下图。

2. 在选择指定单元格对话框中，配置您的设置：

• 2.1) 在选择类型中，选择单元格，即可逐个检查每个单元格。
• 2.2) 从指定类型下拉菜单中，选择开头为。
• 2.3) 在文本框中输入起始字符（例如“K”），即可精准定位您要查找的内容。
• 2.4) 单击确定即可执行操作。

3. 操作完成后，将弹出另一个选择指定单元格对话框，明确显示所选区域中有多少个单元格以指定字符开头，同时所有匹配的单元格将在工作表中被自动选中。单击确定即可关闭对话框，并根据需要进一步查看或处理结果。

对于需要快速验证结果或选择匹配单元格以进行额外格式设置或操作的用户（尤其是在非公式密集型工作流中），强烈推荐此方法。请注意，增强函数可无缝支持大型数据集，并允许在无需手动管理公式的情况下快速重复执行操作。

注意：此方法区分大小写。若匹配数量与预期不符，请确保您的条件在大小写及单元格起始字符上完全一致。

用于统计以特定字符开头的单元格的 VBA 宏

对于高级用户，或在需要跨动态或筛选数据集统计以特定字符开头的单元格数量的自动化场景中，VBA 提供了一种灵活高效的替代方案。借助一个简单的宏，您即可在任意区域轻松完成此操作——尤其适用于需重复执行计数任务，或数据频繁变动而您希望避免反复调整公式的情形。

以下宏将提示您选择目标区域并输入要检查的字符，随后分析每个单元格，并在便捷的对话框中呈现统计结果。此方案非常适合自动化重复性任务，或用于无法直接使用公式的表格（例如筛选表格、受保护工作表或交互式报表）。除非您对其进行修改，否则该宏默认不区分大小写。

1. 按 Alt + F11 打开 Microsoft Visual Basic for Applications 编辑器。在 VBA 窗口中，单击插入> 模块，并将以下代码粘贴到模块窗口中：

Sub CountCellsStartingWithChar()
    Dim WorkRng As Range
    Dim Cell As Range
    Dim FirstChar As String
    Dim CountNum As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the range to count:", xTitleId, WorkRng.Address, Type:=8)
    
    FirstChar = Application.InputBox("Enter the character to check:", xTitleId, "", Type:=2)
    
    CountNum = 0
    
    If WorkRng Is Nothing Or FirstChar = "" Then
        MsgBox "No valid range or character specified.", vbExclamation, xTitleId
        Exit Sub
    End If
    
    For Each Cell In WorkRng
        If Not IsEmpty(Cell.Value) Then
            If Left(Cell.Value, 1) = FirstChar Then
                CountNum = CountNum + 1
            End If
        End If
    Next
    
    MsgBox "Number of cells beginning with '" & FirstChar & "': " & CountNum, vbInformation, xTitleId
End Sub

2. 关闭 VBA 编辑器并返回工作表，按 Alt + F8 打开宏列表，选择 CountCellsStartingWithChar 并单击运行，然后按照提示选择区域并指定目标字符。

实用提示：此宏最适合用于基于文本的列或列表。如果您希望比较时不区分大小写，请将 Left(Cell.Value,1) = FirstChar 这一行替换为 LCase(Left(Cell.Value,1)) = LCase(FirstChar)。此外，请确保选择区域仅包含您希望纳入的单元格，因为返回错误的合并或公式可能会影响结果。

如果出现“未指定有效区域或字符”的提示，请重试并确保提示框中不为空。此宏不仅适用于简单的计数任务，在集成到更大型的自动化流程中（例如多步骤报告或 VBA 驱动的仪表板）时同样大显身手。

相关文章

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
	特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
	精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多

在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Kutools for Excel 更多详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

• 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
• 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
• 将您的工作效率提升 50%，每天减少数百次鼠标点击！

Office Tab 更多详情……免费下载……

---

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

• 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
• 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
• 协同效果更佳— 在多个 Office 应用中实现高效协同
• 30 天全功能试用— 无需注册，无需信用卡
• 超值之选— 比单独购买插件更省钱

Kutools for Office 更多详情……免费下载……