Создание всех неидентичных перестановок в электронной таблице [duplicate]

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

• Сначала выберите необработанные данные и удалите дубликаты, по столбцу.
• Затем прочитайте эти 3 столбца на 3 отдельных массивах.
• Рассчитайте общую длину всех массивов.
• Затем с петлей вставьте первое значение массива страны столько раз, сколько есть комбинаций животных и плодов, поэтому длина эти массивы умножаются.
• Внутри цикла создайте еще один цикл, который помещает все варианты фруктов. С несколькими повторяющимися строками, которые равны максимальному количеству животных.
• Затем вставьте животных без дубликатов друг за другом до последней строки таблицы.

Классический пример выражения для выбора без соединения, которое возвращает декартово произведение всех результатов комбинирования перечисленных таблиц.

SQL Database Solution

Просто импортируйте Animals, Fruit, Country в виде отдельных таблиц в любую базу данных SQL, такую ​​как MS Access, SQLite, MySQL и т. д. и таблицы таблиц без объединений, включая неявные (WHERE) и явные (JOIN) объединяются:

SELECT Animals.Animal, Fruits.Fruit, Countries.Country
FROM Animals, Countries, Fruits;

Excel Solution

То же понятие с запуском non-join SQL statement в VBA с использованием ODBC-соединения с книгой, содержащей диапазоны «Животные, страны и фрукты». Например, каждая группа данных находится в своем собственном листе с таким же именем.

Sub CrossJoinQuery()

    Dim conn As Object
    Dim rst As Object
    Dim sConn As String, strSQL As String

    Set conn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")

    sConn = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" _
               & "DBQ=C:\Path To\Excel\Workbook.xlsx;"
    conn.Open sConn

    strSQL = "SELECT * FROM [Animals$A1:A3], [Fruits$A1:A3], [Countries$A1:A3] "
    rst.Open strSQL, conn

    Range("A1").CopyFromRecordset rst

    rst.Close
    conn.Close

    Set rst = Nothing
    Set conn = Nothing

End Sub

Здесь мой подход к вашей проблеме.

Public Sub matchingCell()

    Dim animalRow, fruitRow, countryRow, checkRow, resultRow As Long
    Dim isExist As Boolean

    'Set the start row
    animalRow = 2
    resultRow = 2

    'Work with data sheet
    With Sheets("sheetname")

        'Loop until animals column is blank
        Do While .Range("A" & animalRow) <> ""

            'Set the start row
            fruitRow = 2

            'Loop until fruits column is blank
            Do While .Range("B" & fruitRow) <> ""

                'Set the start row
                countryRow = 2

                'Loop until country column is blank
                Do While .Range("C" & countryRow) <> ""

                    'Set the start row
                    checkRow = 2

                    'Reset flag
                    isExist = False

                    'Checking for duplicate row
                    'Loop all result row until D is blank
                    Do While .Range("D" & checkRow) <> ""

                        'If duplicate row found
                        If .Range("D" & checkRow) = .Range("A" & animalRow) And _
                           .Range("E" & checkRow) = .Range("B" & fruitRow) And _
                           .Range("F" & checkRow) = .Range("C" & countryRow) Then

                           'Set true for exist flag
                           isExist = True

                        End If

                        checkRow = checkRow + 1

                    Loop

                    'If duplicate row not found
                    If Not isExist Then

                        .Range("D" & resultRow) = .Range("A" & animalRow)
                        .Range("E" & resultRow) = .Range("B" & fruitRow)
                        .Range("F" & resultRow) = .Range("C" & countryRow)

                        'Increase resultRow
                        resultRow = resultRow + 1

                    End If

                    'Increase countryRow
                    countryRow = countryRow + 1

                Loop

                'Increase fruitRow
                fruitRow = fruitRow + 1

            Loop

            'Increase fruitRow
            animalRow = animalRow + 1

        Loop

    End With

End Sub

Я уже тестировал его. Он работает хорошо. Хороший день.

Вы можете сделать это с помощью формул рабочего листа. Если у вас есть диапазоны NAME - «Животные», «Фрукты» и «Страны», «трюк» состоит в том, чтобы генерировать индексы в этом массиве для предоставления всех различных комбинаций.

Например:

=CEILING(ROWS($1:1)/(ROWS(Fruits)*ROWS(Countries)),1)

будет генерировать последовательность чисел на основе 1, которая повторяется для записей чисел в Fruits * Countries - что дает вам, сколько строк вам нужно для каждого животного.

=MOD(CEILING(ROWS($1:1)/ROWS(Countries),1)-1,ROWS(Fruits))+1

будет генерировать 1 (f5)

Создает повторяющуюся последовательность 1..n, где n - количество стран.

Вводя их в формулы (с некоторой проверкой ошибок)

D3:  =IFERROR(INDEX(Animals,CEILING(ROWS($1:1)/(ROWS(Fruits)*ROWS(Countries)),1)),"")
E3:  =IF(E3="","",INDEX(Fruits,MOD(CEILING(ROWS($1:1)/ROWS(Countries),1)-1,ROWS(Fruits))+1))
F3:  =IF(E3="","",INDEX(Countries,MOD(ROWS($1:1)-1,ROWS(Countries))+1))

[/g0]