A列的单元格输入的都是0~4的数字，现在要统计0、1、2、3、4离A列最下那个非空单元格的最近间距，例如A列最下的非空单元格A10是1 则1的间隔是0，A9是2，则2的间隔是1 ，统计的值返回到某个单元格内，结果要随着我输入的数据自动变化，并且代码是对可见单元格进行统计，因为，我会发生筛选操作
鼠标右键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，选程序，在【选项】里设置一个热键，以后每次数据输入完后，按热键运行程序，就可得到你要的结果！！！
还有一点大家觉得很奇怪，这样的问题，怎么没有给分？？？！！！追问
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，选程序，在【选项】里设置一个热键，以后每次数据输入完后，按热键运行程序，就可得到你要的结果！！！
还有一点大家觉得很奇怪，这样的问题，怎么没有给分？？？！！！追问
可不可以不设置热键，我只要更新A列的数据，结果也自动跟着变化
追答可以在A列数据更新时，自动变化，但这样每次都会去运行程序，会使你输入数据时感觉反应有点慢！所以推荐使用热键！
追问代码黏贴了，貌似没反应么，返回的值，返回到哪里去了啊？
追答注意：数据应在A列，结果在C1:C4
追问你测试过吗？返回的值不对啊，怎么返回3千多啊
追答请选中A列，按Delete（删除A列），再将数据粘贴在A1……，快去试一试吧！
温馨提示：答案为网友推荐，仅供参考
