Як згенерувати всі комбінації з 3 або декількох стовпців у Excel?
Припустимо, у мене є 3 стовпці даних, тепер я хочу сформувати або перерахувати всі комбінації даних у цих 3 стовпцях, як показано нижче. Чи є у вас якісь методи вирішення цього завдання в Excel?
Створіть усі комбінації на основі 3 стовпців даних, використовуючи формулу
Створюйте всі комбінації на основі 3 або декількох стовпців даних за допомогою коду VBA
Створюйте всі комбінації на основі 3 або декількох стовпців даних за допомогою чудової функції
Створіть усі комбінації на основі 3 стовпців даних, використовуючи формулу
Наступна довга формула може допомогти перерахувати всі комбінації з 3 стовпців, будь-ласка, зробіть так:
1. Клацніть клітинку, куди вивести результат, а потім скопіюйте та вставте в неї формулу нижче:
примітки: У цій формулі: A2: A4, B2: B6, C2: C5 - це діапазони даних, які ви хочете використовувати.
2. Потім перетягніть маркер заповнення до комірок, доки не з’являться пусті комірки, це означає, що всі комбінації з 3 стовпців були перераховані, див. Знімок екрана:
Створюйте всі комбінації на основі 3 або декількох стовпців даних за допомогою коду 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:A4") 'First column data
Set xDRg2 = Range("B2:B6") 'Second column data
Set xDRg3 = Range("C2:C5") '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
примітки: У наведеному вище коді, A2: A4, B2: B6, C2: C5 діапазон даних, який ви хочете використовувати, E2 - вихідна комірка, в якій ви хочете знайти результати. Якщо ви хочете отримати всі комбінації з більшої кількості стовпців, будь ласка, змініть і додайте інші параметри до коду, як вам потрібно.
3. Потім натисніть F5 для запуску цього коду, і всі комбінації з 3 або декількох стовпців будуть генеровані одночасно, див. знімок екрана:
Створюйте всі комбінації на основі 3 або декількох стовпців даних за допомогою чудової функції
Якщо у вас є Kutools для Excel, з його потужним Перелічіть усі комбінації Ви можете швидко та легко перерахувати всі комбінації декількох стовпців.
після установки Kutools для Excel, будь ласка, зробіть так:
1. Клацання Кутулс > Insert > Перелічіть усі комбінації, див. скріншот:
2, в Перелічіть усі комбінації у діалоговому вікні вкажіть дані стовпців та роздільники для переліку комбінацій, як показано на наступному знімку екрана:
3. Після встановлення даних та розділювача натисніть кнопку Ok , у наступному вікні запиту виберіть клітинку, щоб знайти результат, див. знімок екрана:
4. А потім натисніть OK кнопки, всі комбінації були згенеровані відразу, як показано нижче:
Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!