vba 調用 countif 函數問題

源數據是A1:G18，需求是在K列顯示A1:A18中各單元格重復出現的次數。在L列中是用countif函數直接計算的，

 

Private Sub test()
    Dim rng As Range, i As Integer
    i = 1
    For Each rng In Range("A1:A18")
        Range("I" & i) = Application.WorksheetFunction.CountIf(Range("A" & i & ":G18"), Range("A" & i))
        i = i + 1
    Next rng
End Sub