源数据是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
原文：https://www.cnblogs.com/onelikeone/p/10236558.html