Como selecionar vários itens da lista suspensa em uma célula no Excel?

A lista suspensa é freqüentemente usada no trabalho diário do Excel. Por padrão, apenas um item pode ser selecionado em uma lista suspensa. Mas, em alguns momentos, você pode precisar selecionar vários itens da lista suspensa em uma única célula, conforme mostrado a imagem abaixo. Como você pode lidar com isso no Excel?

Selecione vários itens da lista suspensa em uma célula com VBA

Selecione vários itens da lista suspensa em uma célula com a opção prática do Kutools para Excel

Selecione vários itens da lista suspensa em uma célula com VBA

Aqui estão alguns que o VBA pode lhe fazer um favor ao resolver esse trabalho.

Selecione os itens duplicados da lista suspensa em uma célula

1. Depois de criar uma lista suspensa, clique com o botão direito na guia da folha para selecionar Ver código no menu de contexto.

2. Em seguida, no Microsoft Visual Basic para Aplicações janela, copie e cole o código abaixo no script em branco.

VBA: Selecione vários itens da 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.

Nota:

1. Com o VBA, ele separa os itens por espaço, você pode alterar xStrNew = xStrNew & "" & Target.Value para outros para alterar o delimitador conforme necessário. Por exemplo, xStrNew = xStrNew & "," & Target.Value irá separar os itens com vírgulas.

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

Selecione vários itens da lista suspensa para uma célula sem repetir

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

VBA: Selecione vários itens da lista suspensa para uma célula sem repetir

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

Ambos os códigos VBA acima não suportam excluir partes do conteúdo da célula, apenas suportam limpar todos os itens da célula.

Selecione vários itens da lista suspensa em uma célula com a opção prática do Kutools para Excel

Se você não estiver familiarizado com o código VBA, você pode Livre Instalar uma ferramenta útil - Kutools for Excel, que contém um grupo de utilitários sobre a lista suspensa e há uma opção Lista suspensa de seleção múltipla pode ajudá-lo a selecionar facilmente vários itens da lista suspensa em uma célula.

Depois de criar a lista suspensa, selecione as células da lista suspensa e clique Kutools > Lista suspensa > Lista suspensa de seleção múltipla para habilitar este utilitário.

Em seguida, as células da lista suspensa selecionadas podem ser vários itens selecionados na célula.

Se você usar esta opção na primeira vez, poderá especificar as configurações deste utilitário conforme necessário antes de aplicá-lo.

Clique Kutools > Lista suspensa > a seta ao lado Lista suspensa de seleção múltipla > Configurações.

Então, no Configurações da lista suspensa de seleção múltipla diálogo, você pode

1) Especifique o escopo de aplicação conforme necessário;

2) Especifique a direção do local dos itens;

3) Especifique o separador entre os itens;

4) Especifique se não adicionar duplicatas e remover itens duplicados.

Clique Ok e clique Kutools > Lista suspensa > Lista suspensa de seleção múltipla para fazer efeito.

Dica: Para aplicar o Lista suspensa de seleção múltipla utilitário, você precisa instalar a princípio. Se você deseja criar uma lista suspensa com vários níveis, o utilitário abaixo pode ajudá-lo.

Crie facilmente uma lista suspensa dinâmica de 2 níveis ou dependente de vários níveis no Excel

No Excel, é complexo criar uma lista suspensa de 2 ou vários níveis. Aqui o Lista suspensa dinâmica utilidade de Kutools for Excel pode te fazer um favor. O que você só precisa fazer é ordenar os dados conforme mostrado no exemplo, selecionar o intervalo de dados e o intervalo de saída e deixar para o utilitário.  Clique para 30 dias de teste grátis!

Kutools for Excel: com mais de 300 suplementos práticos do Excel, grátis para experimentar sem limitação em 30 dias.

---

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra... 

---

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Download grátis... Compra...