Como preencher uma caixa de combinação apenas com valores únicos no Excel?

Quando você cria uma caixa de combinação com uma lista de dados que inclui alguns valores duplicados, esses valores duplicados não serão excluídos automaticamente na caixa de combinação. Nesse caso, como você pode exibir apenas itens únicos na sua caixa de combinação? Talvez este tutorial possa ajudá-lo.

Preencha a caixa de combinação apenas com valores únicos usando código VBA

Preencha a caixa de combinação apenas com valores únicos usando código VBA

O seguinte código VBA pode ajudá-lo a adicionar os valores únicos ao criar uma caixa de combinação; por favor, faça o seguinte:

1. Insira uma caixa de combinação primeiro, clique em Desenvolvedor > Inserir > Caixa de Combinação (Controle ActiveX) e, em seguida, arraste o mouse para desenhar uma caixa de combinação, veja a captura de tela:

2. Em seguida, clique com o botão direito do mouse na caixa de combinação e escolha Visualizar Código no menu de contexto, veja a captura de tela:

3. A janela Microsoft Visual Basic for Applications será aberta; copie e cole o seguinte código para substituir o código original.

Código VBA: caixa de combinação com valores únicos:

Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
    Dim vStr, eStr
    Dim dObj As Object
    Dim xRg As Range
    On Error Resume Next
    Set dObj = CreateObject("Scripting.Dictionary")
    Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    vStr = xRg.Value
    Application.ScreenUpdating = False
    With dObj
        .comparemode = 1
        For Each eStr In vStr
            If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
        Next
        If .Count Then
            ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Observação: No código acima, ComboBox1 é o nome da sua caixa de combinação criada; você pode alterá-lo conforme necessário.

4. Em seguida, pressione a tecla F5 para executar este código e, na caixa de prompt, selecione a lista de fonte de dados que deseja adicionar à caixa de combinação, veja a captura de tela:

5. E depois clique no botão OK; apenas os valores únicos são exibidos na caixa de combinação, veja a captura de tela:

Dica: Se não houver a guia Desenvolvedor na faixa de opções, este artigo Como mostrar/exibir a guia Desenvolvedor na Faixa de Opções do Excel 2007/2010/2013? pode ajudá-lo a exibir a guia Desenvolvedor.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!