[已解决]求教在vba中使用countif的写法

lovelfg

现有一列数据，都是人名，现在想把重复的人名的数量标明。
详细举例：假如A列人名中“小明”出现了4次，那么在第一次“小明"出现时在相应的B列标数字”4“，在小明第二次出现时在B列相应位置标数字”3“，以此类推。
我的思路是利用countif函数逐渐缩小匹配区间，但是问题是下面这段代码的countif写法总是不对，求大家指教一下如何写

Sub test()
Dim i As Integer
For i = 1 To 101
Range ("B"&i)=application.WorksheetFunction.CountIf(range("A"&i:"A101"),range("A"&i))
Next i
End Sub

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-19 17:14

Range ("B" & i)=application.WorksheetFunction.CountIf(range("A" & i & ":A101"),range("A" & i))这样改下试试

跳转到最佳答案楼层

望帝春心

Range ("B" & i)=application.WorksheetFunction.CountIf(range("A" & i & ":A101"),range("A" & i))这样改下试试

lovelfg

望帝春心 发表于 2016-12-19 17:14
Range ("B" & i)=application.WorksheetFunction.CountIf(range("A" & i & ":A101"),range("A" & i))这样改 ...

运行成功，非常感谢！我基础不扎实，以前不知道这种写法！

望帝春心

lovelfg 发表于 2016-12-19 17:21
运行成功，非常感谢！我基础不扎实，以前不知道这种写法！

不客气，慢慢来，有帮助就评下最佳吧