Как да генерирам всички комбинации от 3 или няколко колони в Excel?
Да предположим, че имам 3 колони с данни, сега искам да генерирам или изброя всички комбинации от данните в тези 3 колони, както е показано на екранната снимка по-долу. Имате ли добри методи за решаване на тази задача в Excel?
Генерирайте всички комбинации въз основа на 3 колони с данни, като използвате формула
Генерирайте всички комбинации въз основа на 3 или няколко колони с данни, като използвате VBA код
Генерирайте всички комбинации въз основа на 3 колони с данни, като използвате формула
Следната дълга формула може да ви помогне да изброите всички комбинации от 3 колони, моля, направете следното:
1. Моля, щракнете върху клетка, където да изведете резултата, след което копирайте и поставете формулата по-долу в нея:
Забележка: В тази формула: A2: A4, B2: B6, C2:C5 са диапазоните от данни, които искате да използвате.
2. След това плъзнете манипулатора за попълване надолу към клетките, докато се покажат празни клетки, което означава, че всички комбинации от 3-те колони са изброени, вижте екранната снимка:
Генерирайте всички комбинации въз основа на 3 или няколко колони с данни, като използвате VBA код
Горната дълга формула е донякъде трудна за използване, ако има няколко колони с данни, които трябва да се използват, ще бъде обезпокоително за модифициране. Тук ще представя VBA код, за да се справя бързо с него.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
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. Щракнете Kutools > Поставете > Избройте всички комбинации, вижте екранна снимка:
2. В Избройте всички комбинации диалоговия прозорец, задайте данните и разделителите на колоните за изброяване на комбинациите, както е показано на следната екранна снимка:
3. След като зададете данните и разделителя, щракнете Ok бутон, в следващото подканващо поле изберете клетка, за да намерите резултата, вижте екранна снимка:
4. И след това щракнете OK всички комбинации са генерирани веднага, както е показано на екранната снимка по-долу:
Щракнете, за да изтеглите Kutools за Excel и безплатна пробна версия сега!
Най-добрите инструменти за производителност в офиса
Kutools за Excel решава повечето от вашите проблеми и увеличава вашата производителност с 80%
- Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
- Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
- Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
- Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
- Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
- Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
- Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
- Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
- Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
