如何使用Visual Basic for Applications在 Excel 中计算所选内容中字符的出现次数

  • 项目
  • 适用于:
    Microsoft Office Excel 2007

摘要

在 Microsoft Excel 中，可以使用宏来计算单元格或单元格区域中特定字符的出现情况。 本文包含一个示例宏，用于计算单元格或单元格区域中特定字符的出现情况。

还可以使用公式来完成任务。 如果不想使用宏，请单击以下文章编号以查看 Microsoft 知识库中的文章：

187667公式来计算文本、字符或单词在Excel for Mac中出现的情况

更多信息

Microsoft 提供的编程示例仅用于进行说明，而不提供明示或默示担保。 这包括但不限于适销性或对特定用途的适用性的默示担保。 本文假设您熟悉正在演示的编程语言和用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能，但他们不会修改这些示例以提供新增功能或构建步骤以满足你的特定需要。

示例 Visual Basic 过程

以下 Visual Basic 过程提示输入字符 (或字符) ，然后搜索当前选定的单元格或单元格区域，并显示一个消息框，显示该字符或字符串的出现总数。 这适用于所有字母数字字符。

Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer

Sub Target_Count()
   Count = 0
   Target = InputBox("character(s) to find?")
   If Target = "" Then GoTo Done
      For Each Cell In Selection
         N = InStr(1, cell.Value, target)
         While N <> 0
            Count = count + 1
            N = InStr(n + 1, cell.Value, target)
         Wend
      Next Cell
   MsgBox count & " Occurrences of " & target
Done:
End Sub