Варианты сочетаний из n по k

[Deni3]

Добрый день.
Требуется макрос реализации сочетаний из n по k без повторений.
Например n = 5 (1,2,3,4,5), а k = 3.
В итоге:
1,2,3
1,2,4
1,2,5
1,3,4
1,3,5
1,4,5
2,3,4
2,3,5
2,4,5
3,4,5
Можно реализовать через цикл, а вернее 3 цикла

For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
Cells(myRows, 1) = i
Cells(myRows, 2) = j
Cells(myRows, 3) = k
myRows = myRows + 1
Next k
Next j
Next i
(код украден)

Но как сделать если k будет введено до. т.е. k не будет предопределено?

[SaLoKiN]

Sub MyCombin()
    Dim a&(), i&, j&, m&, n&, p&
    n = Val(InputBox("n =", , 10))
    m = Val(InputBox("m =", , 3))
    If n < m Or m < 1 Then Exit Sub

    ReDim a&(1 To m), b&(1 To WorksheetFunction.Combin(n, m), 1 To m)
    For i = 1 To m: a(i) = i: Next i
    If m = n Then p = 1 Else p = m
    
    Range("a1").CurrentRegion.ClearContents
    Do
        j = j + 1
        For i = 1 To m: b(j, i) = a(i): Next i
        If a(m) = n Then p = p - 1 Else p = m
        If p Then
            For i = m To p Step -1
                a(i) = a(p) + i - p + 1
            Next i
        End If
    Loop While p
    [a1].Resize(UBound(b), m) = b
End Sub

чем вам не решение? на планете уже решили

ахаха...причем вам же и решили.