Как выбрать несколько элементов из раскрывающегося списка и объединить их в одной ячейке Excel?
При работе с данными в Excel часто приходится выбирать значения из раскрывающихся списков. Но как быть, если нужно выбрать сразу несколько элементов и отобразить их в одной ячейке? Хотя Excel не поддерживает множественный выбор в таких списках «из коробки», в этом руководстве представлены лучшие способы его реализации.
 |  |  |
Использование кода VBA для выбора нескольких элементов из раскрывающегося списка
Использование Kutools для Excel для удобного выбора нескольких элементов из раскрывающегося списка
Использование кода VBA для выбора нескольких элементов из раскрывающегося списка
Ниже — примеры кодов VBA, которые помогут вам справиться с этой задачей.
Выбор повторяющихся элементов из раскрывающегося списка в ячейку
1. После создания раскрывающегося списка щелкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт «Просмотреть код».
2. Затем в окне «Microsoft Visual Basic for Applications» скопируйте приведённый ниже код и вставьте его в пустой модуль.
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 Sub3. Сохраните код и нажмите «Закрыть это окно», чтобы вернуться к раскрывающемуся списку. Теперь вы сможете выбирать сразу несколько элементов из него.
Примечание:
1. С помощью этого кода VBA элементы разделяются пробелом. Вы можете заменить строку «xStrNew = xStrNew & « » & Target.Value» на другую, чтобы использовать нужный вам разделитель. Например, строка «xStrNew = xStrNew & "," & Target.Value» будет разделять элементы запятыми.
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 для Excel для удобного выбора нескольких элементов из раскрывающегося списка
Упростите работу в Excel с помощью Kutools для Excel! Благодаря инструменту «Создать выпадающий список с множественным выбором» вы сможете легко выбирать сразу несколько элементов из раскрывающегося списка — все выбранные значения автоматически отобразятся в одной ячейке без необходимости писать сложный код на VBA. Прощай, рутинная ручная работа, и здравствуй — умный и эффективный способ управления списками в Excel!
1. Перейдите в меню «Kutools» > «Раскрывающийся список» > «Включить расширенный раскрывающийся список», а затем снова выберите «Создать выпадающий список с множественным выбором» в разделе «Раскрывающийся список». См. скриншоты:
 |  |  |
2. В диалоговом окне «Создать выпадающий список с множественным выбором» настройте следующие параметры.
- 2,1) Выделите ячейки, содержащие раскрывающийся список;
- 2,2) В поле «Разделитель» введите символ-разделитель, который будет использоваться для отделения нескольких элементов;
- 2,3) При необходимости установите флажок «Включить функцию поиска». (Если эта опция включена, позже вы сможете искать элементы в раскрывающемся списке.)
- 2,4) Нажмите кнопку «OK».
Теперь при щелчке по ячейке с раскрывающимся списком появится список. Вы можете нажать кнопку ➕, чтобы добавить элементы в ячейку, и кнопку ➖, чтобы удалить ненужные элементы. См. демо ниже:
Выбор нескольких элементов из раскрывающегося списка в Excel вовсе не обязан быть сложной задачей. Следуя пошаговым методам из этого руководства, вы легко сможете включить множественный выбор с помощью кода VBA или упростить процесс с помощью такого инструмента, как Kutools для Excel. Хотите освоить ещё больше полезных приёмов в Excel? На нашем сайте доступны тысячи обучающих материалов!
См. также:
Создание раскрывающегося списка в Excel
Раскрывающиеся списки помогают вам и другим пользователям эффективнее вводить данные в таблицы: просто выберите нужное значение из списка вместо ручного набора!
Раскрывающийся список с множественным выбором
По умолчанию в Excel из раскрывающегося списка, созданного с помощью проверки данных «Раскрывающийся список», можно выбрать только один элемент за раз. Как реализовать множественный выбор из такого списка, как показано на скриншоте ниже? Методы, описанные в этой статье, помогут вам решить эту задачу.
Автозавершение при вводе в раскрывающемся списке Excel
Если ваш раскрывающийся список содержит множество значений, вам приходится либо пролистывать его в поисках нужного элемента, либо вручную вводить полное название. А если бы ввод автоматически завершался после набора первой буквы — работа стала бы гораздо проще!
Создание раскрывающегося списка с возможностью поиска в Excel
Когда в раскрывающемся списке много значений, найти нужный элемент бывает непросто. Ранее мы уже рассказывали о методе автозавершения при вводе первой буквы. Но помимо этого вы можете сделать раскрывающийся список полностью доступным для поиска — это значительно ускорит и упростит поиск нужных значений!
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек