Combination algorithm VBA

Dear all

Is it possible to have an excel VBA for combination generator?

I saw this in the following website but there is a limitation for displaying more than 5000 results.

https://www.dcode.fr/combinations

Example:

I have 5 options (n = 5)

a
b
c
d
e

I want to generate combinations of 3 (k = 3). The results will be

a b c
a b d
a b e
a c d
a c e
a d e
b c d
b c e
b d e
c d e

I have a project with 20 options and I need to list down all the possible combinations of choosing k out 20 e.g. 15 out of 20 options.

Really appreciate if someone could assist.

Thank you.

As a VBA starter :

PHP Code: 

Const K = 3

Dim R&, V, W(), X, Y(1 To K)

Sub Combinate(Optional C& = 1, Optional P& = 1)
    For P = P To X(C)
        Y(C) = V(P)
        If C < K Then Combinate C + 1, P + 1 Else R = R + 1: W(R) = Y
    Next
End Sub

Sub Demo1()
    Dim N&
    ActiveSheet.UsedRange.Clear
    V = [{"a","b","c","d","e"}]
    N = UBound(V):  If N <= K Then Beep: Exit Sub
    ReDim W(1 To Evaluate("COMBIN(" & N & "," & K & ")"))
    R = 0
    X = Evaluate("COLUMN(" & Cells(N - K + 1).Resize(, K).Address & ")")
    Combinate
    X = Evaluate("COLUMN(" & Cells(1).Resize(, K).Address & ")")
    [A1].Resize(R, K) = Application.Index(W, Evaluate("ROW(1:" & R & ")"), X)
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄