自动查找统计数字组合的重复次数

xusheng21

如图所示：要求自动将重复最多的组合查找出来并统计重复了几次，chatgpt的AI生成代码总是给我错误的结果

ynzsvt

8出现3次，看不懂你要求！
猜测你的结果是每行出现在整个区域中的最大次数的数字的集合。

gwjkkkkk

建议模拟一下正确结果，这个结果看不出逻辑。。。

ykcbf1100

楼主的摸拟结果有误，第二行中的12出现了5次。

ykcbf1100

猜的。。。。

1. Sub ykcbf()  '//2024.9.15
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 13)
   
6.         For x = 2 To UBound(arr)
   
7.             d.RemoveAll
   
8.             For i = x To UBound(arr)
   
9.                 For j = 1 To UBound(arr, 2)
   
10.                     If arr(i, j) <> Empty Then
    
11.                         d(arr(i, j)) = d(arr(i, j)) + 1
    
12.                     End If
    
13.                 Next
    
14.             Next
    
15.             st = ""
    
16.             Max = 0
    
17.             For j = 1 To UBound(arr, 2)
    
18.                 If d(arr(x, j)) > 1 Then
    
19.                     If arr(x, j) <> Empty Then
    
20.                         st = st & "、" & arr(x, j)
    
21.                         Max = IIf(Max < d(arr(x, j)), d(arr(x, j)), Max)
    
22.                     End If
    
23.                 End If
    
24.             Next
    
25.             .Cells(x, 14) = Mid(st, 2)
    
26.             .Cells(x, 15) = IIf(Max = 1, 0, Max)
    
27.         Next
    
28.     End With
    
29.     MsgBox "OK！"
    
30. End Sub
    
31. 
    

复制代码

xusheng21

用chatgpt的AI生成代码调试了很多次，还是不理想，大家看看如何修改