[已解决]VBA计算全排列出现总次数

laoau138

VBA计算全排列出现总次数

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-27 10:23

1. Sub aaa()
   
2. Dim arr, i&, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.   d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = d(arr(i, 1) & arr(i, 2) & arr(i, 3)) + 1
   
7. Next i
   
8. arr = [f1].CurrentRegion
   
9. For i = 2 To UBound(arr)
   
10.   arr(i, 4) = d(arr(i, 1) & arr(i, 2) & arr(i, 3))
    
11.   If arr(i, 4) = "" Then arr(i, 4) = 0
    
12. Next i
    
13. [i1].Resize(UBound(arr)) = Application.Index(arr, , 4)
    
14. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.   d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = d(arr(i, 1) & arr(i, 2) & arr(i, 3)) + 1
   
7. Next i
   
8. arr = [f1].CurrentRegion
   
9. For i = 2 To UBound(arr)
   
10.   arr(i, 4) = d(arr(i, 1) & arr(i, 2) & arr(i, 3))
    
11.   If arr(i, 4) = "" Then arr(i, 4) = 0
    
12. Next i
    
13. [i1].Resize(UBound(arr)) = Application.Index(arr, , 4)
    
14. End Sub

复制代码