Vba重复值筛选统计次数

Vba:一列数据中，想把单元格出现的1198和1918,1819,8911,1189,9118,8119等作为重复值筛选统计次数

假设这一列是A列，并且假设有100行，那么

Sub CountOccurrences()
    Dim searchRange As Range
    Dim searchValue As Variant
    Dim count As Integer
    
    Set searchRange = Range("A1:A100") '将搜索范围设为A1到A100
    
    '开始搜索每个值
    For Each searchValue In Array("1198", "1918", "1819", "8911", "1189", "9118", "8119")
        count = WorksheetFunction.CountIf(searchRange, searchValue)
        MsgBox searchValue & " 出现了 " & count & " 次。"
    Next searchValue
End Sub

不好意思，我问题说的不清楚。我想说的是A列中有很多行数据，要把包含有“1198”的单元格作为重复值累计，或许还有其他的如“5563”…等