Como selecionar vários itens de uma lista suspensa e inseri-los numa única célula do Excel?
Gerir dados no Excel envolve frequentemente a seleção de valores em listas suspensas. Mas e se precisar de escolher vários itens e apresentá-los numa única célula? Embora o Excel não inclua esta funcionalidade por predefinição, este guia mostra-lhe as melhores técnicas para criar listas suspensas com seleção múltipla no Excel.
 |  |  |
Utilizar código VBA para selecionar vários itens de uma lista suspensa
Utilizar o Kutools para Excel para selecionar facilmente vários itens de uma lista suspensa
Utilizar código VBA para selecionar vários itens de uma lista suspensa
Aqui estão alguns códigos VBA que o podem ajudar a concluir esta tarefa.
Selecionar itens duplicados de uma lista suspensa numa célula
1. Após criar uma lista suspensa, clique com o botão direito do rato no separador da folha e selecione «Ver Código» no menu de contexto.
2. Em seguida, na janela «Microsoft Visual Basic for Applications», copie e cole o código abaixo no módulo em branco.
VBA: Selecionar vários itens de uma lista suspensa numa 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 Sub3. Guarde o código e feche esta janela para regressar à lista suspensa. Agora já pode selecionar vários itens na lista suspensa.
Nota:
1. Com o VBA, os itens são separados por um espaço. 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 com todas as listas suspensas presentes na folha.
Selecionar vários itens de uma lista suspensa para uma célula sem repetições
Se pretender selecionar apenas itens únicos da lista suspensa para uma célula, basta repetir os passos acima e utilizar o código seguinte.
VBA: Selecionar vários itens de uma lista suspensa para uma célula sem repetições
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 permite eliminar partes específicas do conteúdo de uma célula; apenas possibilitam limpar todo o seu conteúdo.
Utilizar o Kutools para Excel para selecionar facilmente vários itens de uma lista suspensa
Simplifique o seu fluxo de trabalho no Excel com o «Kutools para Excel»! A funcionalidade «Criar lista suspensa com seleções múltiplas» permite-lhe escolher facilmente vários itens numa lista suspensa e apresentá-los automaticamente numa única célula — sem precisar de recorrer a códigos VBA complicados. Diga adeus aos processos manuais e repetitivos e descubra uma forma mais inteligente e eficiente de gerir listas suspensas no Excel.
1. Clique em «Kutools» > «Lista suspensa» > «Habilitar Lista Suspensa Avançada». Depois, volte a clicar em «Criar lista suspensa com seleções múltiplas» no menu «Lista suspensa». Consulte as capturas de ecrã:
 |  |  |
2. Na caixa de diálogo «Criar lista suspensa com seleções múltiplas», configure-a da seguinte forma:
- 2,1) Selecione as células que contêm a lista suspensa;
- 2,2) Na caixa «Separador», introduza um delimitador que utilizará para separar os vários itens;
- 2,3) Marque a opção «Ativar função de pesquisa», conforme necessário. (Ao ativar esta opção, poderá realizar pesquisas na lista suspensa posteriormente.)
- 2,4) Clique no botão «OK».
Agora, ao clicar na célula com lista suspensa, aparece uma caixa de lista. Pode clicar no ➕ botão para adicionar itens à célula e no ➖ botão para remover os itens conforme necessário. Veja a demonstração abaixo:
Selecionar vários itens de uma lista suspensa no Excel não precisa de ser uma tarefa complicada. Com os métodos passo a passo deste guia, pode ativar rapidamente a seleção múltipla usando código VBA ou simplificar ainda mais o processo com uma ferramenta como o Kutools para Excel. Se quiser descobrir mais dicas e truques do Excel, o nosso site disponibiliza milhares de tutoriais.
Artigos relacionados:
Inserir lista suspensa no Excel
As listas suspensas permitem-lhe — a si ou a outros utilizadores — trabalhar de forma mais eficiente nas folhas de cálculo ao introduzir dados. Com uma lista suspensa, basta escolher rapidamente um item da lista, em vez de digitar manualmente o valor pretendido.
Lista suspensa com seleções múltiplas
Por predefinição, só é possível selecionar um item de cada vez numa lista suspensa criada com validação de dados no Excel. Como fazer seleções múltiplas na lista suspensa, tal como mostrado na imagem abaixo? Os métodos neste artigo ajudam-no a resolver este problema.
Preenchimento automático ao digitar numa lista suspensa do Excel
Se tiver uma lista suspensa de validação de dados com muitos valores, terá de percorrer toda a lista para encontrar o valor pretendido ou digitar manualmente a palavra completa na caixa. Mas e se existisse um método que ativasse o preenchimento automático assim que começasse a escrever a primeira letra? Tudo ficaria muito mais fácil!
Criar uma lista suspensa pesquisável no Excel
Quando uma lista suspensa contém inúmeros valores, encontrar o item certo pode ser tudo menos fácil. Já lhe mostrámos anteriormente um método que preenche automaticamente a lista à medida que digita a primeira letra na caixa da lista suspensa. Além dessa funcionalidade de preenchimento automático, também é possível tornar a lista suspensa pesquisável — uma solução que potencia significativamente a sua eficiência ao localizar os valores certos.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos