如何用COUNTIF函数读取IP地址？Excel VBA代码报错求助

先看你的代码里的语法错误，这是直接导致报错的核心原因：

• 范围字符串缺少闭合引号：ws.Range("C2:C2000) 需改为 ws.Range("C2:C2000")
• 条件字符串缺少闭合引号：">=3 需改为 ">=3"
• CountIfs 要求成对的范围和条件参数，单条件场景用CountIf更简洁
• 直接把单个统计结果赋值给C2:C2000整个区域逻辑错误，CountIf/CountIfs返回单个数值，需根据需求调整赋值目标或改用公式填充

修复后的基础代码 #

场景1：统计满足条件的单元格总数，写入指定单元格 #

Sub TestCountIf()
    Dim ws As Worksheet
    Set ws = Worksheets("COUNTIFS")
    
    ' 统计C2:C2000中数值>=3的单元格数量，结果写入D2
    ws.Range("D2").Value = Application.WorksheetFunction.CountIf(ws.Range("C2:C2000"), ">=3")
End Sub

场景2：给C列每个单元格填充自身在列中的重复次数 #

Sub TestCountIf()
    Dim ws As Worksheet
    Set ws = Worksheets("COUNTIFS")
    
    ' 给C2:C2000填充公式，统计当前单元格值在C列的出现次数
    ws.Range("C2:C2000").Formula = "=COUNTIF($C$2:$C$2000,C2)"
End Sub

IP地址统计的额外注意事项 #

你提到要处理IP地址，直接用>=3这类条件完全不适用（IP是文本格式，比如192.168.1.1），需根据需求调整逻辑：

• 统计重复IP：用上述场景2的公式填充方式即可
• 筛选特定段IP（如开头为192的）：条件写为"=192.*"
• 比较IP大小（如判断是否大于某个IP）：需先将IP转换为可比较的格式（比如把每段补为3位数字拼接成12位字符串，或转成十进制数值）再统计

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