如何统计多列表格中重复的内容

fangfhf

求助：如何将左边多列多行中的重复数据统计到右列表格中！

lisongmei

COUNTIF就可以了。。。

feilanga

............

fangfhf

feilanga 发表于 2024-9-14 15:07
............

万分感谢！！！！

Qs18

1. Sub qs()
   
2. Dim arr, brr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4.     With Sheet1
   
5.         rw = .Cells(Rows.Count, "k").End(3).Row
   
6.         arr = .Range("b2:k" & rw).Value
   
7.         brr = .Range("m2:r" & rw).Value
   
8.         For Each a In arr
   
9.         If Not IsNumeric(a) Then
   
10.             If Not dic.exists(a) Then
    
11.                 dic(a) = 1
    
12.             Else
    
13.                 dic(a) = dic(a) + 1
    
14.             End If
    
15.         End If
    
16.         Next
    
17.         For i = 1 To UBound(brr)
    
18.             For j = 1 To 6 Step 2
    
19.                 brr(i, j + 1) = dic(brr(i, j))
    
20.             Next
    
21.         Next
    
22.     .Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
23. End With
    
24. Set dic = Nothing
    
25. End Sub

复制代码

Qs18

试试。。。。。

Qs18

试试。。。。。。。

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   For j = 2 To UBound(arr, 2)
      d(arr(i, j)) = d(arr(i, j)) + 1
   Next
Next
brr = [m1].CurrentRegion
For i = 2 To UBound(brr)
   For j = 1 To UBound(brr, 2) Step 2
      brr(i, j + 1) = d(brr(i, j))
   Next
Next
[m1].CurrentRegion = brr
End Sub