[已解决]请教老师：如何任意选择N行，统计某一范围内，数字存在的个数 。

lygyjt

各位老师，晚上好！想请教这样的问题：在一个表中，任意选择N行（连续或不连续），统计某一范围内，数字存在的个数 。具体请见例子。 01~35任意选择行，统计被选个数（小）.rar (247.82 KB, 下载次数: 15)

2016-11-10 22:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-11-11 09:22

1. Sub Greenhand()
   
2.     Dim rng As Range
   
3.     Set rng = Worksheets("05").[az2].CurrentRegion
   
4.     For Each cell In Selection
   
5.         cell.Offset(0, 1) = Application.CountIf(rng, cell)
   
6.     Next
   
7.     Set rng = Nothing
   
8. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub Greenhand()
   
2.     Dim rng As Range
   
3.     Set rng = Worksheets("05").[az2].CurrentRegion
   
4.     For Each cell In Selection
   
5.         cell.Offset(0, 1) = Application.CountIf(rng, cell)
   
6.     Next
   
7.     Set rng = Nothing
   
8. End Sub

复制代码

望帝春心

选择BI列的任意多个单元格，运行程序，结果返回到BJ列

su45

这没必要用VBA吧？见图；

lygyjt

望帝春心 发表于 2016-11-11 09:22

谢谢版主的指点！怠慢您了，因为有事，好久没来。由于VBA我真的不太懂，所以，暂时把你的程序记下了，日后一定要把它弄明白。

lygyjt

su45 发表于 2016-11-11 10:17
这没必要用VBA吧？见图；

谢谢su45！可能 我没说明白。不是您图例的意思。这个想法暂时不用 了。

望帝春心

lygyjt 发表于 2016-12-8 21:24
谢谢版主的指点！怠慢您了，因为有事，好久没来。由于VBA我真的不太懂，所以，暂时把你的程序记下了，日 ...

客气了，如果答案有帮助就评个最佳吧