Как выбрать несколько элементов из раскрывающегося списка в ячейку в Excel?

Выпадающий список часто используется в повседневной работе Excel. По умолчанию в раскрывающемся списке можно выбрать только один элемент. Но в некоторых случаях вам может потребоваться выбрать несколько элементов из раскрывающегося списка в одну ячейку, как показано ниже. Как с этим справиться в Excel?

Выберите несколько элементов из раскрывающегося списка в ячейку с помощью VBA

Выберите несколько элементов из раскрывающегося списка в ячейку с помощью удобной опции Kutools for Excel

Выберите несколько элементов из раскрывающегося списка в ячейку с помощью VBA

Вот некоторые VBA, которые могут оказать вам услугу при решении этой задачи.

Выберите повторяющиеся элементы из раскрывающегося списка в ячейке

1. После создания раскрывающегося списка щелкните правой кнопкой мыши вкладку листа, чтобы выбрать Просмотреть код из контекстного меню.

2. Затем в Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код в пустой скрипт.

VBA: выберите несколько элементов из раскрывающегося списка в ячейке

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

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

Примечание:

1. С помощью VBA элементы разделяются пробелами, вы можете изменить xStrNew = xStrNew & "" & Целевое значение другим, чтобы изменить разделитель по мере необходимости. Например, xStrNew = xStrNew & "," & Целевое значение разделит элементы запятыми.

2. Этот код VBA работает для всех раскрывающихся списков на листе.

Выберите несколько элементов из раскрывающегося списка в ячейку без повторения

Если вы просто хотите выбрать уникальные элементы из раскрывающегося списка в ячейку, вы можете повторить вышеуказанные шаги и использовать приведенный ниже код.

VBA ： Выберите несколько элементов из раскрывающегося списка в ячейку без повторения

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Оба вышеуказанных кода VBA не поддерживают удаление частей содержимого ячейки, поддерживают только очистку всех элементов ячейки.

Выберите несколько элементов из раскрывающегося списка в ячейку с помощью удобной опции Kutools for Excel

Если вы не знакомы с кодом VBA, вы можете бесплатная установка удобный инструмент - Kutools for Excel, который содержит группу утилит о выпадающем списке, и есть опция Раскрывающийся список с множественным выбором может помочь вам легко выбрать несколько элементов из раскрывающегося списка в ячейку.

После создания раскрывающегося списка выберите ячейки раскрывающегося списка и нажмите Кутулс > Раскрывающийся список > Раскрывающийся список с множественным выбором чтобы включить эту утилиту.

Затем из выбранных ячеек раскрывающегося списка можно выбрать несколько элементов в ячейке.

Если вы используете эту опцию в первый раз, вы можете указать настройки этой утилиты по своему усмотрению, прежде чем применять эту утилиту.

Нажмите Кутулс > Раскрывающийся список > стрелка рядом Раскрывающийся список с множественным выбором > Настройки.

Затем в Настройки раскрывающегося списка с множественным выбором диалог, вы можете

1) Укажите необходимую вам область применения;

2) Укажите направление размещения предметов;

3) Укажите разделитель между элементами;

4) Укажите, не следует ли добавлять дубликаты и удалять повторяющиеся элементы.

Нажмите Ok и нажмите Кутулс > Раскрывающийся список > Раскрывающийся список с множественным выбором чтобы подействовать.

Функции: Чтобы применить Раскрывающийся список с множественным выбором утилита, вам нужно устанавливать это сначала. Если вы хотите создать раскрывающийся список с несколькими уровнями, вам может помочь следующая утилита.

Легко создавать динамический двухуровневый или многоуровневый зависимый раскрывающийся список в Excel

В Excel создать двухуровневый или многоуровневый раскрывающийся список сложно. Здесь Динамический раскрывающийся список полезности Kutools for Excel могу сделать вам одолжение. Все, что вам нужно сделать, это упорядочить данные, как показано в примере, затем выбрать диапазон данных и диапазон вывода, а затем оставить это утилите.  Нажмите для 30 дней бесплатного пробного периода!

Kutools for Excel: с более чем удобными надстройками Excel 300, которые можно попробовать бесплатно без ограничений в 30 дней.

---

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Больше информации... Скачать бесплатно... Покупка ... 

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...