[浏览完整版]
标题：找出每行3个以上的重复数字
1楼
sloyy 发表于：2024/8/4 23:56:00
如图:有18行数据,用什么办法能够迅速找出每行3个以上的重复数字?
2楼
y2287958 发表于：2024/8/5 8:02:00没看明白
3楼
有点蓝 发表于：2024/8/5 8:51:006选3的不重复组合个数是120种。33选3的不重复组合个数是5456种。没有快速的方法，只能所有组合都逐一搜索一遍
4楼
sloyy 发表于：2024/8/5 9:27:00我以为有特殊的算法可以缩减工作量
5楼
y2287958 发表于：2024/8/5 9:32:00说说规则，还是看不明白
6楼
sloyy 发表于：2024/8/5 16:23:00就是在一行6个数字里面选3到4个数字,与其他行对比,看是否有重复,如果有重复就标出这3个数字
7楼
y2287958 发表于：2024/8/5 16:31:00与其他行对比，是怎样的对比
8楼
sloyy 发表于：2024/8/5 21:53:00看其他行,是否有这3个数字
9楼
y2287958 发表于：2024/8/5 23:27:00也就是其他行所有列，不包括当前行呗。明天上班看看，有办法。
10楼
y2287958 发表于：2024/8/6 7:54:00Dim 列名集 As New List(Of String)({"第一列", "第二列", "第三列", "第四列", "第五列"})
Dim 集合 As New List(Of Integer)(Tables("表A10").rows.Select(Function(行) CInt(行("第一列"))))
For Each 列名 As String In 列名集.skip(1)
集合.AddRange(Tables("表A10").rows.Select(Function(行) CInt(行(列名))))
Next
集合 = 集合.GroupBy(Function(元素) 元素).where(Function(元素) 元素.count > 3).Select(Function(元素) 元素.key).tolist
For Each 行 As Row In Tables("表A10").rows
行("第六列") = String.Join(" ", 集合.Intersect(列名集.select(Function(列名) CInt(行(列名)))))
Output.Show(String.Join(" ", 集合.Intersect(列名集.select(Function(列名) CInt(行(列名))))))
Next