Note: The other languages of the website are Google-translated. Back to English

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

Якщо ви хочете повернути всі можливі комбінації з даних одного стовпця, щоб отримати результат, як показано на зображенні нижче, чи є у вас якісь швидкі способи вирішення цього завдання в Excel?

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

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


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

Наступні формули масивів можуть допомогти вам виконати цю роботу, виконуйте крок за кроком:

1. Спочатку вам слід створити дві допоміжні комірки формули. У клітинку C1 введіть наведену нижче формулу та натисніть Ctrl + Shift + Enter ключі для отримання результату:

=MAX(LEN(A2:A6))
примітки: У цій формулі, A2: A6 це список комірок, у яких потрібно вказати їхні комбінації.

2. У клітинку C2 введіть наступну формулу та натисніть Ctrl + Shift + Enter разом, щоб отримати другий результат, дивіться знімок екрана:

=CONCAT(A2:A6&REPT(" ",C2-LEN(A2:A6)))
примітки: У цій формулі, A2: A6 це список комірок, у яких потрібно вказати їхні комбінації, C2 клітинка містить формулу, яку ви створили на кроці 1.

3. Потім скопіюйте та вставте наведену нижче формулу в клітинку D2 і натисніть Ctrl + Shift + Enter клавіші разом, щоб отримати перший результат, див. скріншот:

=IF(ROW()>2^(COUNTA(A$2:A$6)),"",TEXTJOIN(" + ",TRUE,IF(MID(TEXT(DEC2BIN(ROW()-1),REPT("0",COUNTA($A$2:$A$6))),ROW(INDIRECT("1:"&COUNTA($A$2:$A$6))),1)+0,TRIM(MID($C$3,(ROW(INDIRECT("1:"&COUNTA($A$2:$A$6)))-1)*$C$2+1,$C$2)),"")))
примітки: У цій формулі, A2: A6 це список комірок, у яких потрібно вказати їхні комбінації, C2 клітинка містить формулу, яку ви створили на кроці 1, C3 це клітинка з формулою, яку ви створили на кроці 2, + Символ є роздільником для розділення комбінацій, ви можете змінити їх на свої потреби.

4. Потім виділіть цю клітинку формули та перетягніть маркер заповнення вниз, доки не з’являться порожні клітинки. Тепер ви можете побачити, як усі комбінації вказаних даних стовпця відображаються, як показано нижче:

примітки: Ця формула доступна лише в Office 2019, 365 і новіших версіях.

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

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

1. Прес Alt + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Потім натисніть кнопку Insert > Модулі, скопіюйте та вставте наведений нижче код VBA у вікно.

Код VBA: список усіх можливих комбінацій з одного стовпця

Sub ConnectArr()
'Updateby ExtendOffice
Dim xDValue As Variant
Dim xOutRg As Range
Dim xDictionary As Object
Dim xF As Long
Dim xChar As String
xDValue = Range("A2:A6").Value 'the data range
Set xOutRg = Range("C1") 'output range
xChar = "," 'separator
For xF = 1 To UBound(xDValue)
    Set xDictionary = CreateObject("Scripting.Dictionary")
    xDictionary(0) = "Sets of " & xF
    Call ConnectValue(xDValue, xDictionary, 0, xF, 0, "", xChar)
    xOutRg.Offset(0, xF - 1).Resize(xDictionary.Count).Value = WorksheetFunction.Transpose(xDictionary.Items)
    Set xDictionary = Nothing
Next
End Sub
Sub ConnectValue(ByRef pDValue, ByRef pDictionary, ByRef pLevel, ByVal pMaxLevel, ByVal pIndex, ByVal pValue, ByVal pChar)
Dim xF As Long
If pLevel = pMaxLevel Then
    pDictionary(pDictionary.Count + 1) = pValue
    Exit Sub
End If
For xF = pIndex + 1 To UBound(pDValue)
    If pValue = "" Then
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pDValue(xF, 1), pChar)
    Else
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pValue & pChar & pDValue(xF, 1), pChar)
    End If
Next
End Sub
примітки: У наведеному вище коді:
  • A2: A6: це список даних, які ви хочете використовувати;
  • C1: вихідна комірка;
  • ,: роздільник для розділення комбінацій.

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


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця