鼠标右键Sheet1的标签，选【查看代码】。在代码窗口粘贴下面的代码：
Sub ouyangff()
n = [a65536].End(3).Row
For i = 0 To 4
For j = 1 To n
If Cells(j, 1) = i Then k = j
Next
Cells(i + 1, 3) = n - k
Next
End Sub
按 Alt + F11 回到 Excel
这时你可以按Alt + F8，选程序，在【选项】里设置一个热键，以后每次数据输入完后，按热键运行程序，就可得到你要的结果！！！
还有一点大家觉得很奇怪，这样的问题，怎么没有给分？？？！！！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024