Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

doc выберите несколько элементов из выпадающего списка 1 doc arrow right doc выберите несколько элементов из выпадающего списка 2

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

Легко Объединить столбцы или строки без потери данных в Excel

Предположим, вы работаете с листом, который содержит несколько повторяющихся записей, и теперь вам нужно объединить / объединить строки на основе одного и того же значения и выполнить некоторые вычисления, такие как сумма, среднее значение, количество повторяющихся строк. С этим Расширенные ряды комбинирования of Kutools for Excel, вы можете быстро объединить одинаковые значения / одни и те же данные или дублировать строки в соответствующие ячейки. Нажмите для бесплатной пробной версии 60!
doc advanced объединить строки
Kutools for Excel: с более чем 200 удобными надстройками Excel, без ограничений в 60-дни.

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


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

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

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

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

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

Private Sub Worksheet_Change (ByVal Target As Range) 'UpdatebyExtendoffice20180510 Dim xRgVal As Range Dim xStrNew As String On Error Resume Next Set xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) Если (Target.Count> 1) Или (xRgVal ничего не значит), тогда выйдите из Sub If Intersect (Target, xRgVal) ничего не выйдет из приложения Sub.EnableEvents = False xStrNew = Target.Value Application.Undo xStrNew = xStrNew & "" & Target.Value Target.Value = xStrNew Application.EnableEvents = True End Sub

doc выберите несколько элементов из выпадающего списка 4

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

Примечание:

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

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

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

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

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

Private Sub Worksheet_Change (ByVal Target As Range) 'UpdatebyExtendoffice20180510 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) Если (Target. Count> 1) Или (xRgVal ничего), тогда выйдите из Sub Если Intersect (Target, xRgVal) ничего не выйдет, то выйдите из Sub Application.EnableEvents = False xFlag = True xStrNew = "" & Target.Value & "" Application.Undo xStrOld = Target .Value Если InStr (1, xStrOld, xStrNew) = 0 Затем xStrNew = xStrNew & xStrOld & "" Else xStrNew = xStrOld End If Target.Value = xStrNew Application.EnableEvents = True End Sub


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John · 17 days ago
    How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
  • To post as a guest, your comment is unpublished.
    Madhu · 1 months ago
    I used this "Select multiple items from drop down list to a cell without repeat"
    this is what happened
    1. Multiple selections happen without problems.
    2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
  • To post as a guest, your comment is unpublished.
    debadeep · 2 months ago
    After adding,the data from dropdown,delete doesnt work.
    • To post as a guest, your comment is unpublished.
      Susan Lynn · 2 months ago
      I found the same issue. I think I found a way to overcome it. At the bottom of the code you'll see the code "xStrNew = xStrOld". Instead, make it say xStrNew = " "

      It works for me.