N选N的组合问题

mate66

N选N的组合问题，excel 可否实现。

mate66

Public d
Public r
Public arr
Public m
Sub lqxs_zd()
    Application.ScreenUpdating = False
    Sheets("code").UsedRange.ClearContents
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).[a1].CurrentRegion
    m = 7
    r = 1
    For j = 1 To UBound(arr, 2)
   
        d(j) = j
        dg j
        a = d.Count
        d.Remove j
    Next j
    Application.ScreenUpdating = True
End Sub
Sub dg(y)
    For j = y + 1 To UBound(arr, 2)
        d(j) = j
        If d.Count = m Then
            For i = 0 To 6
                Sheets(1).Cells(1, d.keys()(i)).Resize(7).Copy Sheets(2).Cells(r, i + 1)
            Next i
            r = r + 7
        Else
                dg j
        End If
        If d.exists(j) Then d.Remove j
    Next j
End Sub


暂时没老师解，这是刚ehome一位老师的解答代码，把它帖出来。

grf1973

30列选7列，共有2035800种组合。。。。。

grf1973

1、生成1--30的数组
2、递归生成组合
3、把组合对应的数据提取出来。

mate66

grf1973 发表于 2018-1-2 20:30
1、生成1--30的数组
2、递归生成组合
3、把组合对应的数据提取出来。

可否做一附件，提高更快速度。 当结果超过最大行数时，向右重新隔1列放置结果。

苏子龙

裙子老师就有，自己百度吧