有点难度的不确定数据组合

gfdhgw

nihao123456789 发表于 2023-7-20 13:19
B，C，D列，本列内是否会重复？是否会与其他列重复？
比如B列有没有可能是4，5，6，7，4？
比如B列有没有 ...

我这个是没有重复的,当然可以加上去重的,适应更多的需求

fanyoulin

gfdhgw 发表于 2023-7-20 13:04
那老师能帮写一下代码吗？谢谢

不好写，难度很高

gfdhgw

tomxie 发表于 2023-7-20 14:17
只需要 1条SQL 就可以 全部搞掂，问题是结果太多太多，完全没有意义！

你好,老师,SQL怎么写呢

gfdhgw

tomxie 发表于 2023-7-20 14:26
Excel 2003+ 单个Sheet 最大行数也才1048576。
19*18*17*16*15*14*13=253,955,520  就算再过滤一下，也还 ...

你这个总数是排列算法,组合没这么多,符合要求的才20810个组合

micch

一般也就彩票或者BOM会有类似的需求吧。      确实有点麻烦，等递归熟悉了可以拿来练习一下

gfdhgw

论坛上找不到相似的问题,有没有高手帮解答一下

gfdhgw

tomxie 发表于 2023-7-20 15:11
考虑大小顺序，确实只有 20810 种，SQL只需 1 条 语句，全部搞定。

能在VBA里面调用这个SQL写出通用性的代码吗?

grf1973

步骤2的递归代码（在ChatGPT基础上修改）。
核心就是这总分的递归。其他都很容易实现，不过工作量大。

1. Sub GenerateCombinations()
   
2.     Dim inputArray() As Variant
   
3.     Dim outputArray() As Variant
   
4.     Dim tempArray() As Variant
   
5.     Dim n As Integer
   
6.     Dim i As Integer, j As Integer
   
7.     Dim s$
   
8.    
   
9.     ' 输入数组
   
10.     inputArray = Array(1, 2, 3, 4, 5, 6) ', ... '更多数组元素)
    
11.    
    
12.     ' 设置取数个数
    
13.     n = 4 ' 可以根据需要设置
    
14.    
    
15.     ReDim outputArray(1 To Application.WorksheetFunction.Combin(Application.count(inputArray), n), 1 To n)
    
16.     ReDim tempArray(1 To n)
    
17.    
    
18.     ' 生成组合
    
19.     GenerateCombination inputArray, tempArray, outputArray, n, 1, 1, 0 ' 添加额外的参数 1
    
20.    
    
21.      '输出组合结果
    
22.     For i = 1 To UBound(outputArray)
    
23.         s = ""
    
24.         For j = 1 To n
    
25.             s = s & "," & outputArray(i, j)
    
26.         Next j
    
27.         Debug.Print Mid(s, 2)
    
28.     Next i
    
29.    
    
30. End Sub
    
31. 
    
32. Sub GenerateCombination(inputArray() As Variant, tempArray() As Variant, outputArray() As Variant, n As Integer, currentIndex As Integer, outputIndex As Integer, startIndex As Integer) ' 添加额外的参数 startIndex
    
33.     Dim i As Integer
    
34.    
    
35.     If currentIndex > n Then
    
36.         For i = 1 To n
    
37.             outputArray(outputIndex, i) = tempArray(i)
    
38.         Next i
    
39.         outputIndex = outputIndex + 1 ' 更新 outputIndex 的值
    
40.         Exit Sub
    
41.     End If
    
42.    
    
43.     For i = startIndex To UBound(inputArray)
    
44.         tempArray(currentIndex) = inputArray(i)
    
45.         GenerateCombination inputArray, tempArray, outputArray, n, currentIndex + 1, outputIndex, i + 1
    
46.     Next i
    
47. End Sub

复制代码

gfdhgw

tomxie 发表于 2023-7-20 15:20
可能必须有数据库，例如 SQL Server 或者 PostgreSQL 或者 MySQL  或者 Oracle.

哦,那就是用的SQL自带的函数吗?我看有一些也可以在VBA里面用ADO调用SQL查询的

gfdhgw

tomxie 发表于 2023-7-20 15:48
用任何开发语言都可以，只不过代码可能会更长一些。 Excel 本身也支持基础的 SQL 语法，不过对于一些高级的 ...

好吧,那只能看有没有其他高手直接用递归或循环给出代码了,谢谢了