[已解决]数组输出

yqnh

dsmch 发表于 2014-2-14 19:36

感觉“期间”也应该会去重，没有必要设brr(1,1)="期间"
要对空格进行处理
以上是我个人肤浅的见解

dsmch

yqnh 发表于 2014-2-14 23:07
感觉“期间”也应该会去重，没有必要设brr(1,1)="期间"
要对空格进行处理
以上是我个人肤浅的见解

代码中有判断：If arr(i, 1) <> "期间" And arr(i, 1) <> ""

yqnh

dsmch 发表于 2014-2-15 05:44
代码中有判断：If arr(i, 1)  "期间" And arr(i, 1)  ""

没看不等干空

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, s&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("b10:b" & Range("b65536").End(xlUp).Row)
   
5. x = Application.WorksheetFunction.CountIf(Columns(2), "期间")
   
6. ReDim brr(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(arr)
   
8.     If arr(i, 1) <> "" Then d(arr(i, 1)) = d(arr(i, 1)) + 1
   
9.     If d(arr(i, 1)) = x Then s = s + 1: brr(s, 1) = arr(i, 1)
   
10. Next
    
11. Range("c1").Resize(s) = brr
    
12. End Sub
    

复制代码

不判断期间的话

张雄友

dsmch 发表于 2014-2-15 10:05
不判断期间的话

判断期间与不判断期间，为什么答案是一样的？ 就是7楼代码与14楼代码。

dsmch

张雄友 发表于 2014-2-15 18:37
判断期间与不判断期间，为什么答案是一样的？ 就是7楼代码与14楼代码。

表头可以看作数据，相比14楼代码比较简练。