源数据是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

 

相关链接

评论可见，请评论后查看内容，谢谢！！！评论后请刷新页面。