Como remover valores únicos de uma coluna no Excel?

Normalmente, a maioria de nós pretende remover valores duplicados de uma coluna, mas por vezes pode querer eliminar os valores únicos — aqueles que aparecem apenas uma vez na coluna. Este tutorial apresenta truques práticos para remover esses valores únicos de uma coluna no Excel.

Eliminar valores únicos com VBA no Excel

Eliminar valores únicos com Kutools para Excel

---

Eliminar valores únicos com VBA no Excel

Utilizar VBA permite eliminar rapidamente todos os valores únicos numa coluna.

1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela, clique em Inserir > Módulo para abrir uma nova janela de módulo e, em seguida, copie o seguinte código VBA para essa janela.

VBA: Remover valores únicos de uma coluna.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub

3. Clique em Executarpara executar o código VBA e surge uma caixa de diálogo do KutoolsforExcelpara selecionar um intervalo onde trabalhar. Veja a imagem:

4. Clique em OK e todos os valores únicos serão eliminados.

---

Eliminar valores únicos com Kutools para Excel

Se não estiver familiarizado com VBA, pode optar por utilizar a funcionalidade «Selecionar Células Duplicadas/Únicas» do Kutools para Excel para remover os valores únicos no Excel.

Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias.Obtenha já

1. Selecione a coluna da qual pretende eliminar os valores únicos e clique em Kutools > Selecionar > Selecionar Células Duplicadas/Únicas. Veja a imagem:

2. Na caixa de diálogo que surge, marque Valores Únicos e clique em OK, depois feche esta caixa de diálogo. Veja a imagem:

3. Em seguida, todos os valores que aparecem apenas uma vez serão selecionados. Clique com o botão direito do rato e selecione Eliminar no menu de contexto. Veja a imagem:

4. Na caixa de diálogo Eliminar, marque Linha inteira e clique em OK. Veja a imagem:

Agora pode verificar que os valores únicos foram removidos.

Dica: Se pretender apenas remover o conteúdo das células, pode clicar em Limpar Conteúdo no menu de contexto no passo 3.

Clique aqui para obter mais informações sobre como selecionar células duplicadas ou únicas.

---

Artigos Relacionados:

• Eliminar todos os comentários no Excel
• Remover Linha duplicada no Excel

---