Получить уникальную комбинацию из столбца таблицы с помощью Excel VBA

Question

Например, у меня есть следующие данные в столбце:

Мне нужно сделать все возможные уникальные комбинации этого в другой таблице в 2 столбцах, используя VBA, как показано ниже:

Любая помощь в том, как мне этого добиться? Спасибо.

PS. Данные столбца являются переменными. Может иметь различное количество валют. Выше приведен лишь небольшой пример.

Answer 1

Это пример того, как найти все эти перестановки. С этим вы сможете решить ее.

Option Explicit

Public Sub FindPermutations()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

    Const fRow As Long = 2 'first row
    Const lRow As Long = 5 'last row

    Dim i As Long, j As Long

    For i = fRow To lRow
        For j = i + 1 To lRow
            'print out all permutations
            Debug.Print ws.Cells(i, "A").Value, ws.Cells(j, "A").Value
        Next j
    Next i
End Sub

Как это работает?
Он использует 2 петли. Первый i проходит через все строки. Вторая j только от текущей строки i до последней строки. Это гарантирует, что уже найденные комбинации не будут использоваться снова.

Обратите внимание, что я использовал константы для fRow и lRow для простой демонстрации. Возможно, вы захотите изменить их на переменные в производственной среде.