Как перечислить все возможные комбинации взятия 5 из N объектов в Excel?

Question

Название может не совсем точно описывать мои намерения. Предположим, у меня есть всего 14 объектов, и я хочу выбрать 5 из них. Используя калькулятор, мы видим, что существует 2002 возможностей. Теперь, если у меня есть 17 объектов, и я хочу снова выбрать 5, теперь есть 6188 возможностей. Проблема в том, что онлайн-калькуляторы не перечисляют их.

Я намерен сделать так, чтобы Excel перечислял возможные комбинации извлечения 5 объектов из N, являясь N числом, которое я бы вставил, например, в ячейку A1 (хотя это всегда будет число от 6 до 18). Есть ли способ сделать это?

Answer 1

Поместите 14 элементов в A1 через A14 , затем выполните:

Sub Kombos()
    Dim amount As Long
    amount = 14

    ZZ = 1
    For i = 1 To amount - 4
        For j = i + 1 To amount - 3
            For k = j + 1 To amount - 2
                For L = k + 1 To amount - 1
                    For m = L + 1 To amount
                        Cells(ZZ, 2) = Cells(i, 1) & Cells(j, 1) & Cells(k, 1) & Cells(L, 1) & Cells(m, 1)
                        ZZ = ZZ + 1
                    Next m
                Next L
            Next k
        Next j
    Next i


End Sub