如何用VBA实现数据格式的转换，类似于coutif函数的功能？

星梦月缘

我现在有一组数据，分别罗列了 不同条件下出现的号码内容，有重复出现的也会进行重复的罗列显示。

现在我想实现对每个条件的 数字进行出现次数的统计，其中号码只可能是1-33，然后分别统计出不同条件下 出现对应号码的次数。如图所示：

用countif函数可以很快统计出来，想问下如果使用VBA代码数组或者字典的方法  如何快速统计出来呢？

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [C2].CurrentRegion.Value
    br = [I2].CurrentRegion.Value
    For j = 1 To UBound(ar, 2)
        dic.RemoveAll
        For i = 2 To UBound(ar)
           dic(ar(i, j)) = dic(ar(i, j)) + 1
        Next i
        For i = 2 To UBound(br)
            br(i, j + 1) = dic(br(i, 1)) * 1
        Next i
    Next j
   
    [N2].Resize(UBound(br), UBound(br, 2)) = br
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

ynzsvt

1. Sub 统计()
   
2. Dim Arr, i&, j&, Dic As Object
   
3. Set Dic = CreateObject("Scripting.Dictionary")
   
4. For j = 3 To 5
   
5. For i = 1 To 33: Dic(i) = 0: Next
   
6. Arr = Range(Cells(3, j), Cells(Rows.Count, j).End(xlUp))
   
7. For i = 1 To UBound(Arr)
   
8.   Dic(Arr(i, 1)) = Dic(Arr(i, 1)) + 1
   
9. Next i
   
10. Cells(3, j + 7).Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
    
11. Next j
    
12. Set Dic = Nothing
    
13. End Sub

复制代码

ykcbf1100

这个简单，用字典就行了

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.20
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 3).End(3).Row
   
4.     arr = [c1].Resize(r, 3)
   
5.     For j = 1 To UBound(arr, 2)
   
6.         d.RemoveAll
   
7.         For i = 3 To UBound(arr)
   
8.           s = arr(i, j)
   
9.           If Len(s) Then d(s) = d(s) + 1
   
10.         Next
    
11.         For i = 3 To r
    
12.           s = Cells(i, 9).Value
    
13.           Cells(i, j + 9) = d(s)
    
14.         Next
    
15.     Next
    
16.     Set d = Nothing
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

gwjkkkkk

...........

星梦月缘

===========问题已解决，谢谢各位老师的解答。====================

cai2532

留下脚印学习了