结合COUNTIF和LEFT函数来统计Excel中以特定字符开头的单元格数量

在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. 操作完成后，另一个选择指定单元格对话框将弹出，告诉您在选定范围内有多少单元格以指定字符开头。同时，所有匹配的单元格将在工作表中被选中。单击确定关闭对话框，并根据需要查看或进一步操作结果。

此方法特别推荐给需要快速验证结果或选择匹配单元格以进行额外格式化或操作的用户，尤其是在非公式密集型工作流程中。请记住，Kutools功能无缝支持大型数据集，并允许快速、重复的操作，无需手动管理公式。

注意：此方法区分大小写。如果匹配的数量不是您期望的，请确保您的标准完全匹配单元格的大小写和开头字符。

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驱动的仪表板）。

相关文章

最佳Office办公效率工具

🤖	Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
	热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
	高级LOOKUP：多条件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中进行多标签编辑与阅读。
• 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
• 可提升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更多详情…… 免费下载……