Как найти перестановку из 2 элементов в столбец n, каждая комбинация строк уникальна

Question

Я пишу код Excel VBA, чтобы найти все различные комбинации для двухуровневых факторов. Каждый фактор будет иметь 2 возможных уровня. Например, если у меня есть 3 фактора, количество возможных комбинаций уровней будет 2^3 = 8. Моя цель - распечатать 8 комбинаций в Excel.

Например, мои факторы (уровни) равны Weight(50,60) и height(160,170) уникальные комбинации будут

50,160
50,170
60,160
60,170

с весом в столбце A и высотой в столбце B

Мой вопрос: возможно ли написать код VBA для распечатки всех возможных комбинаций факторов (в диапазоне от 2 до 12), а код должен быть написан в Excel VBA

Answer 1

Вот небольшой пример для двух факторов с использованием вложенных циклов:

Sub Kombination()
    Dim N As Long, M As Long, i As Long, j As Long
    Dim K As Long

    N = Cells(Rows.Count, "A").End(xlUp).Row
    M = Cells(Rows.Count, "B").End(xlUp).Row
    K = 2

    For i = 2 To N
        For j = 2 To M
            Cells(K, 3).Value = Cells(i, 1).Value & "," & Cells(j, 2).Value
            K = K + 1
        Next j
    Next i
End Sub

Как только вы определиликоличество факторов, измените код для вложения на этом уровне.