源数据是A1:G18,需求是在K列显示A1:A18中各单元格重复出现的次数。在L列中是用countif函数直接计算的,
Private Sub test()
Dim rng As Range, i As Integer
i =
For Each rng In Range("A1:A18")
Range("I" & i) = Application.WorksheetFunction.CountIf(Range("A" & i & ":G18"), Range("A" & i))
i = i +
Next rng
End Sub