VBA多值CountIf统计需求及现有代码未弹出MsgBox问题咨询

让我帮你拆解这段VBA代码没弹出正确消息框的核心问题：

关键问题点 #

• 数据类型不匹配：原代码里CountIf(Columns("I"), "1")用了字符串格式的"1"，但如果I列中的1是数值型（不是设置为文本格式的数字），CountIf会匹配不到任何结果，导致变量n的值为0，直接跳过后续的If判断。
• 判断条件过于严苛：代码里只有当统计数量n = 1时才会触发弹窗，也就是说只有正好找到1个值为1的单元格时才会显示结果，其他数量（0、2、3及以上）都不会弹出消息框。
• 消息内容不符合需求：就算触发了弹窗，显示的文本也不是你要求的"Numbers of 1 = xxx"格式，而是错误的自定义文本。

修正后的完整代码 #

Sub Opgave3()
    ' 定义变量分别存储1-5的统计数量
    Dim count1 As Long, count2 As Long, count3 As Long, count4 As Long, count5 As Long
    
    ' 统计I列中对应数值的数量（如果I列是文本格式数字，把1改成"1"即可）
    count1 = WorksheetFunction.CountIf(Columns("I"), 1)
    count2 = WorksheetFunction.CountIf(Columns("I"), 2)
    count3 = WorksheetFunction.CountIf(Columns("I"), 3)
    count4 = WorksheetFunction.CountIf(Columns("I"), 4)
    count5 = WorksheetFunction.CountIf(Columns("I"), 5)
    
    ' 按要求格式弹出消息框，用vbCrLf实现换行
    MsgBox "Numbers of 1 = " & count1 & vbCrLf & _
           "Numbers of 2 = " & count2 & vbCrLf & _
           "Numbers of 3 = " & count3 & vbCrLf & _
           "Numbers of 4 = " & count4 & vbCrLf & _
           "Numbers of 5 = " & count5, _
           vbInformation, "统计结果"
End Sub

修正说明 #

1. 适配数据类型：将统计条件从字符串"1"改为数值1（如果你的I列是文本格式的数字，再改回"1"即可），确保CountIf能正确匹配目标单元格。
2. 取消多余判断：移除了原代码中限制弹窗的If n = 1条件，不管统计结果是多少，都会弹出消息框展示数据。
3. 符合输出格式：用vbCrLf实现换行，让每个数字的统计结果单独一行，完全符合你要求的"Numbers of X = xxx"格式。

内容的提问来源于stack exchange，提问作者Ashreen Ali