Como selecionar vários itens de uma lista suspensa para uma célula no Excel?

Gerenciar dados no Excel muitas vezes envolve a seleção de valores em listas suspensas. Mas e se você precisar selecionar vários itens e exibi-los em uma única célula? Embora o Excel não ofereça essa funcionalidade por padrão, este guia mostrará as melhores técnicas para criar uma lista suspensa com múltipla seleção no Excel.

Usando código VBA para selecionar vários itens de uma lista suspensa

Usando Kutools para Excel para selecionar facilmente vários itens de uma lista suspensa

Usando código VBA para selecionar vários itens de uma lista suspensa

Aqui estão alguns códigos VBA que podem ajudá-lo a realizar esta tarefa.

Selecionar itens duplicados de uma lista suspensa em uma célula

1. Após criar uma lista suspensa, clique com o botão direito na aba da planilha para selecionar "Visualizar Código" no menu de contexto.

2. Em seguida, na janela "Microsoft Visual Basic for Applications", copie e cole o código abaixo no script em branco.

VBA: Selecionar vários itens de uma lista suspensa em uma célula

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. Salve o código e feche a janela para voltar à lista suspensa. Agora você pode selecionar vários itens da lista suspensa.

Observação:

1. Com o VBA, os itens são separados por espaço; você pode alterar "xStrNew = xStrNew & " " & Target.Value" para outro delimitador conforme necessário. Por exemplo, "xStrNew = xStrNew & "," & Target.Value" separará os itens com vírgulas.

2. Este código VBA funciona para todas as listas suspensas na planilha.

Selecionar vários itens de uma lista suspensa para uma célula sem repetição

Se você deseja apenas selecionar itens únicos da lista suspensa para uma célula, pode repetir as etapas acima e usar o código abaixo.

VBA: Selecionar vários itens de uma lista suspensa para uma célula sem repetição

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

Nenhum dos códigos VBA acima suporta a exclusão de partes específicas do conteúdo da célula; eles permitem apenas limpar todos os itens da célula.

Usando Kutools para Excel para selecionar facilmente vários itens de uma lista suspensa

Simplifique seu fluxo de trabalho no Excel com o "Kutools para Excel"! Seu recurso "Lista Suspensa Multisseleção" permite selecionar facilmente vários itens de uma lista suspensa e exibi-los automaticamente em uma única célula, eliminando a necessidade de codificação VBA complicada. Diga adeus a processos manuais tediosos e aproveite uma maneira mais inteligente e eficiente de lidar com listas suspensas no Excel.

1. Clique em "Kutools" > "Lista suspensa" > "Habilitar Lista Suspensa Avançada". Depois, clique novamente em "Lista Suspensa Multisseleção" em "Lista suspensa". Veja as capturas de tela:

2. Na caixa de diálogo "Lista Suspensa Multisseleção", configure conforme segue.

• 2.1) Selecione as células que contêm a lista suspensa;
• 2.2) Na caixa "Separador", insira um delimitador que será usado para separar os vários itens;
• 2.3) Marque a opção "Ativar função de pesquisa" conforme necessário. (Se marcar esta opção, poderá fazer uma busca posteriormente na lista suspensa.)
• 2.4) Clique no botão "OK".

Agora, quando você clicar na célula com a lista suspensa, uma caixa de listagem aparecerá. Você pode clicar no botão ➕ para adicionar os itens à célula e no botão ➖ para remover o item conforme necessário. Veja a demonstração abaixo:

Selecionar vários itens de uma lista suspensa no Excel não precisa ser uma tarefa desafiadora. Com os métodos passo a passo descritos neste guia, você pode habilitar rapidamente a multisseleção usando código VBA ou simplificar o processo com uma ferramenta como Kutools para Excel. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais.

Artigos relacionados:

Inserir lista suspensa no Excel
Você pode ajudar a si mesmo ou a outros a trabalhar de forma mais eficiente nas planilhas para entrada de dados usando listas suspensas. Com uma lista suspensa, você pode escolher rapidamente um item da lista em vez de digitar o valor manualmente.

Lista suspensa com múltiplas seleções
Por padrão, você só pode selecionar um item por vez em uma lista suspensa de validação de dados no Excel. Como permitir múltiplas seleções na lista suspensa, conforme mostrado na captura de tela abaixo? Os métodos neste artigo podem ajudá-lo a resolver o problema.

Autocompletar ao digitar na lista suspensa do Excel
Se você tiver uma lista suspensa de validação de dados com muitos valores, precisará rolar pela lista apenas para encontrar o valor adequado ou digitar a palavra inteira diretamente na caixa de listagem. Se houver um método que permita autocompletar ao digitar a primeira letra na lista suspensa, tudo ficará mais fácil.

Criar uma lista suspensa pesquisável no Excel
Para uma lista suspensa com inúmeros valores, encontrar o valor correto não é uma tarefa fácil. Anteriormente, introduzimos um método de autocompletar a lista suspensa ao inserir a primeira letra na caixa suspensa. Além da função de autocompletar, você também pode tornar a lista suspensa pesquisável para aumentar a eficiência no trabalho ao encontrar os valores corretos na lista suspensa.