[已解决]VBA统计数值出现次数

lijian8003

附件中，用COUNTIF函数统计依次递减区域内某数值的出现个数，如何用VBA实现？

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-25 12:38

lijian8003 发表于 2021-10-25 02:06
万分感谢！代码运行流畅，结果正确。

疑问一，该代码满足3行区域【L3=3-COUNTIF($B1:$K3,L$1)】，如需 ...

将代码 N = 3 改成其他数字，即可扩增范围！

跳转到最佳答案楼层

cutecpu

祝順心，南無阿彌陀佛！

lijian8003

cutecpu 发表于 2021-10-25 00:54
祝順心，南無阿彌陀佛！

万分感谢！代码运行流畅，结果正确。

疑问一，该代码满足3行区域【L3=3-COUNTIF($B1:$K3,L$1)】，如需满足300行区域【L3=300-COUNTIF($B1:$K300,L$1)】
代码第10行：c(i, j) = 3 - d(i & b(1, j)) - d(i + 1 & b(1, j)) - d(i + 2 & b(1, j))，将拉长。恳请指教如何增容？
疑问二，如何竖排？见附件二。

心正意诚身修

1. Sub AA()
   
2. Dim ARR, BRR(), J, K, L, M, N
   
3. ARR = Range("A2").CurrentRegion
   
4. J = UBound(ARR)
   
5. ReDim BRR(1 To J, 1 To 14)
   
6. For K = 1 To J
   
7.     For L = 1 To 14
   
8.         BRR(K, L) = 3 - Application.CountIf(Range("B" & K & ":H" & K + 2), Range("L" & L))
   
9.     Next
   
10. Next
    
11. Range("M1").Resize(K - 1, L - 1) = BRR
    
12.         
    
13. End Sub
    
14. 
    

复制代码

少研究彩票吧。

cutecpu

lijian8003 发表于 2021-10-25 02:06
万分感谢！代码运行流畅，结果正确。

疑问一，该代码满足3行区域【L3=3-COUNTIF($B1:$K3,L$1)】，如需 ...

将代码 N = 3 改成其他数字，即可扩增范围！

lijian8003

cutecpu 发表于 2021-10-25 12:38
将代码 N = 3 改成其他数字，即可扩增范围！

谢谢！世界因你而精彩！
横排的代码（即第一问），也改成可扩增范围，如何？

cutecpu

lijian8003 发表于 2021-10-25 15:47
谢谢！世界因你而精彩！
横排的代码（即第一问），也改成可扩增范围，如何？

将代码 N = 3 改成其他数字，即可扩增范围！