如何使用VBA的FOR循环统计用户输入字符串中指定字母的出现次数

问题分析 #

• 你现有代码的InStr用法虽然能实现统计，但逻辑存在冗余：Else分支的occurances = occurances没有实际作用，可以直接删除。
• InStr默认不区分字符大小写，如果需要严格匹配大小写，需要额外添加vbBinaryCompare参数控制。
• 更贴合FOR循环遍历需求的实现是直接逐位提取字符串中的字符和目标字符比对，逻辑更直观，也完全符合你要求用FOR循环实现的需求。

修正后代码 #

Sub Week3()
    Dim userInput As String
    Dim letterSearched As String
    Dim counter As Long
    Dim occurances As Long
    
    userInput = InputBox("请输入字符串")
    letterSearched = InputBox("请输入要查找的字符")
    occurances = 0
    
    ' 校验输入的查找字符是否为单个，避免异常
    If Len(letterSearched) <> 1 Then
        MsgBox "请仅输入单个要查找的字符"
        Exit Sub
    End If
    
    For counter = 1 To Len(userInput)
        ' 逐位比对字符，vbBinaryCompare代表区分大小写，不需要可以去掉
        If Mid(userInput, counter, 1) = letterSearched Then
            occurances = occurances + 1
        End If
    Next
    MsgBox "匹配到的字符次数为：" & occurances
End Sub

额外说明 #

• 如果你仍然想保留InStr的写法，可以修改判断条件为If InStr(counter, userInput, letterSearched, vbBinaryCompare) = counter Then，避免多字符查找时的重复计数问题。
• 代码中添加的输入校验逻辑可根据你的使用场景选择保留或删除。

内容的提问来源于stack exchange，提问作者Tom Hagerty