標題: [發問] 算相同次數 [打印本頁]

---

作者: starbox520    時間: 2016-12-6 18:17     標題: 算相同次數

以 Loadboard  為主 ， T-unit & Sitemap 如果相同，統計有幾組相同
    [attach]26039[/attach]
   
    [attach]26040[/attach]

---

作者: starbox520    時間: 2016-12-7 10:04

本帖最後由 starbox520 於 2016-12-7 10:06 編輯

回復 1# starbox520

已寫出來摟~各位高手指點指點><"

1. Sub ttt()
   
2. Dim dic As Object, brr, i%, arr(1 To 5000, 1 To 4)
   
3. brr = Sheet3.Range("a1").CurrentRegion
   
4. Set dic = CreateObject("Scripting.Dictionary")
   
5. For i = 2 To UBound(brr)
   
6.     s = brr(i, 4) & brr(i, 8) & brr(i, 9)
   
7.     If Not dic.Exists(s) Then
   
8.         n = n + 1
   
9.         dic(s) = n
   
10.         arr(n, 1) = brr(i, 8)
    
11.         arr(n, 2) = brr(i, 4)
    
12.         arr(n, 3) = brr(i, 9)
    
13.         arr(n, 4) = 1
    
14.     Else
    
15.         arr(dic(s), 4) = arr(dic(s), 4) + 1
    
16.     End If
    
17. Next
    
18. If n > 1 Then
    
19.     With Sheet4.Range("a1")
    
20.         .CurrentRegion.Offset(1).ClearContents
    
21.         .Offset(1).Resize(n, 4) = arr
    
22.     End With
    
23. End If
    
24. Set dic = Nothing
    
25. End Sub

複製代碼

---

作者: hcm19522    時間: 2016-12-7 11:58

http://blog.xuite.net/hcm19522/twblog/473951498

---

作者: starbox520    時間: 2016-12-7 15:46

回復 3# hcm19522


    原來，不用用到VBA也能解出!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)