求助：如何统计二维数组中某元素的个数？

VBA一笑

如题：求助：如何统计二维数组中某元素的个数？

如下：
Sub 宏1()
Dim splittemp1, splittemp2
    splittemp1 = Range("D2:D10").Value
   ‘求语句……


    Range("E2:E10") = splittemp2

End Sub


‘求语句，能统计出 splittemp1（？，1）在 splittemp1 有多少个，把这个数据记录到splittemp2中，再在E2：E10中显示出来，也就是类似于E2=COUNTIF(D$2:D$10,D1)
希望老师能把 不用循环 和 用循环 的例子都给一下，谢谢。

VBA一笑

在线等，，，，，

yuwd3

这个循环一下就好了，干吗不循环。

VBA一笑

循环的已经懂了，有不循环的吗？

yuwd3

1. Sub 宏1()
   
2. Dim splitTemp1, splitTemp2
   
3. splitTemp1 = Range("D2:D10").Value
   
4. ReDim splitTemp2(1 To UBound(splitTemp1), 1 To 1)
   
5. For i = 1 To 9
   
6.     For j = 1 To 9
   
7.         If splitTemp1(i, 1) = splitTemp1(j, 1) Then splitTemp2(i, 1) = splitTemp2(i, 1) + 1
   
8.     Next
   
9. Next
   
10. Range("E2:E10") = splitTemp2
    
11. End Sub
    

复制代码

VBA一笑

感谢yuwd3

yuwd3

VBA一笑 发表于 2016-2-17 21:44
循环的已经懂了，有不循环的吗？

给你一个香川老师关于这方面的答复：
给你一个靠谱的答复：

一般人总是误以为：一句简单的VBA命令语句，会比一大堆循环语句命令效率更高……

事实上结论是相反的：【VBA中的For……Next、For Each……Next语句，才是效率最高的。】



你这样理解就对了：
任何简单语句命令，事实上都不是直接完成工作，而是一个集成代码的引用而已。

比如，sum(A1:A10)
它的本质还是sum里面有一个循环：
    For Each cel In Range("A1:A10")
         Sum = Sum + cel.Value
     Next

不可能有一蹴而就的好事。


呵呵。

所以，为了提取子数组而使用循环，本来就是非常正常不过的思维，没什么不好。
完全不用感觉痛苦而想要避免写循环代码。

→ 即，你应该习惯于为了需要而自己写循环代码……这往往是更高效的做法。



http://club.excelhome.net/thread-1094166-1-1.html

yuki-kyou

yuwd3 发表于 2016-2-18 20:41
给你一个香川老师关于这方面的答复：
给你一个靠谱的答复：

感谢这段话、我一直努力的避免写循环，想方设法找用一句话能解决的现成函数。