[發問] 項目計數

ashan0418

工作表1有一欄位，欄名為『資料檔』，該欄會出現如『A、B、C....』等不一的資料，


工作表2中，希望能出現各項資料的項目計數，如附件，請各位先進解惑，謝謝!!

TEST.zip (3.64 KB)

下載次數: 13

2015-3-10 10:24

lpk187

回復 1# ashan0418


    試試！！

1. Sub 巨集1()
   
2. Dim arr1(1 To 10, 1 To 2)
   
3. Set la = Cells(Rows.Count, "a").End(xlUp)
   
4. arr = Range([A2], la)
   
5. 
   
6. For i = 1 To la.Row - 1
   
7.     For J = 1 To UBound(arr1)
   
8.         x = arr(i, 1): y = arr1(J, 1)
   
9.         If arr(i, 1) = arr1(J, 1) Then
   
10.             arr1(J, 2) = arr1(J, 2) + 1
    
11.             GoTo 100
    
12.         End If
    
13.     Next J
    
14.         K = K + 1
    
15.         arr1(K, 1) = arr(i, 1)
    
16.         arr1(K, 2) = arr1(K, 2) + 1
    
17. 100:
    
18. Next i
    
19. 工作表2.[A2].Resize(K, 2) = (arr1)
    
20. 工作表2.Range("A" & K + 2) = "合計"
    
21. aaa = Application.Sum(工作表2.Range("B2:B" & K + 1))
    
22. 工作表2.Range("B" & K + 2) = Application.Sum(工作表2.Range("B2:B" & K + 1))
    
23. End Sub

複製代碼

ashan0418

回復 2# lpk187


沒問題了，謝謝您!!