Як перерахувати або створити всі можливі комбінації в Excel?

Скажімо, у мене є такі два стовпці даних, і тепер я хочу сформувати список усіх можливих комбінацій на основі двох списків значень, як показано на лівому скріншоті. Можливо, ви можете перерахувати всі комбінації одну за одною, якщо значень мало, але, якщо для переліку можливих комбінацій потрібно кілька стовпців із декількома значеннями, ось декілька швидких прийомів можуть допомогти вам вирішити цю проблему в Excel .

Перелічіть або згенеруйте всі можливі комбінації з двох списків за формулою

Перелічіть або згенеруйте всі можливі комбінації з трьох або більше списків із кодом VBA

Список або генерувати всі можливі комбінації з декількох списків з потужною функцією

Перелічіть або згенеруйте всі можливі комбінації з двох списків за формулою

Наступна довга формула може допомогти вам швидко перерахувати всі можливі комбінації значень двох списків, будь-ласка, зробіть наступне:

1. Введіть або скопіюйте наведену нижче формулу в порожню клітинку, у цьому випадку я введу її в клітинку D2, а потім натисніть вводити ключ, щоб отримати результат, див. знімок екрана:

2. Потім виділіть комірку D2 і перетягніть маркер заповнення вниз до комірок, поки не отримаєте порожні комірки, і всі можливі комбінації будуть перераховані на основі двох значень списків. Дивіться знімок екрана:

Перелічіть або згенеруйте всі можливі комбінації з трьох або більше списків із кодом VBA

Можливо, вищезазначену формулу вам дещо важко застосувати, якщо є кілька даних стовпців, це складно змінити. Тут я представив код VBA, щоб швидко з ним впоратися.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Створіть усі комбінації з 3 або декількох стовпців

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
        xSV3 = xDRg3.Item(xFN3).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub

3. Потім натисніть F5 для запуску цього коду, і всі комбінації з 3 стовпців будуть генеровані одночасно, див. знімок екрана:

Список або генерувати всі можливі комбінації з декількох списків з потужною функцією

Якщо є кілька значень списків, потрібно вказати можливі комбінації, можливо, вам важко змінити код. Тут я можу порекомендувати потужний інструмент - Kutools для Excel, він містить зручну функцію Перелічіть усі комбінації який може швидко перерахувати всі можливі комбінації на основі заданих списків даних.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Натисніть Кутулс > Insert > Перелічіть усі комбінації, див. скріншот:

2, в Перелічіть усі комбінації у діалоговому вікні виконайте операції, як показано нижче:

3. Потім усі зазначені значення та роздільники були перелічені у діалоговому вікні, див. Знімок екрана:

4А потім натисніть Ok , і з'явиться підказка, щоб нагадати вам вибрати клітинку для виведення результату, див. знімок екрана:

5. Клацання OK, всі можливі комбінації на основі поданих списків були сформовані на робочому аркуші, як показано на наступному знімку екрана:

Натисніть, щоб завантажити Kutools для Excel зараз!

Більше відносних статей:

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...