如何用VBA中COUNTIF函数针对指定值识别重复项

要直接传入特定值（比如123456）来查找重复，只需要把COUNTIF的第二个参数从单元格引用换成固定值即可，不需要依赖原代码里的Range("C" & n)。下面是具体实现方式：

基础用法：统计特定值的出现次数 #

直接定义目标值，用COUNTIF统计其在指定范围的出现次数：

Sub CountSpecificValue()
    ' 定义要查找的特定值，数字直接写，文本加双引号
    Dim targetValue As Variant
    targetValue = 123456 ' 若为文本则写 targetValue = "123456"
    
    ' 统计该值在CA2:CA7范围内的出现次数
    Dim duplicateCount As Long
    duplicateCount = Application.CountIf(Range("CA2:CA7"), targetValue)
    
    ' 输出结果（也可以写入单元格或做其他处理）
    MsgBox "值 " & targetValue & " 在范围内共出现 " & duplicateCount & " 次"
End Sub

进阶用法：标记所有出现该值的单元格 #

如果需要把范围内所有匹配特定值的位置标记出来，可以配合循环遍历：

Sub MarkSpecificDuplicates()
    Dim targetValue As Variant
    targetValue = 123456
    Dim checkRange As Range
    Set checkRange = Range("CA2:CA7")
    
    ' 遍历范围，匹配到目标值就标记
    Dim cell As Range
    For Each cell In checkRange
        If cell.Value = targetValue Then
            ' 示例：在当前单元格右侧写入标记文本
            cell.Offset(0, 1).Value = "重复项"
            ' 也可以给单元格上色：cell.Interior.Color = vbYellow
        End If
    Next cell
End Sub

批量查找多个特定值 #

如果需要一次性查多个值，可把目标值放进数组循环处理：

Sub BatchFindSpecificValues()
    ' 定义要查找的多个特定值
    Dim targetValues As Variant
    targetValues = Array(123456, "ABC789", 999)
    
    Dim val As Variant
    For Each val In targetValues
        Dim count As Long
        count = Application.CountIf(Range("CA2:CA7"), val)
        MsgBox "值 " & val & " 的出现次数：" & count
    Next val
End Sub

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