Come eliminare i valori univoci da una colonna in Excel?

Di solito, la maggior parte di noi vuole rimuovere i valori duplicati da una colonna, ma a volte potresti aver bisogno di eliminare invece i valori univoci, quelli che compaiono una sola volta. Questo tutorial ti mostra alcuni trucchi efficaci per rimuovere i valori univoci da una colonna in Excel.

Elimina valori univoci con VBA in Excel

Elimina valori univoci con Kutools per Excel

---

Elimina valori univoci con VBA in Excel

Grazie a VBA, puoi eliminare rapidamente tutti i valori univoci da una colonna.

1. Premere Alt + F11 per visualizzare la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra, fai clic su Inserisci > Modulo per aprire una nuova finestra del modulo, quindi copia il seguente codice VBA nel modulo.

VBA: Rimuovi i valori univoci da una colonna.

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. Fare clic su Eseguiper eseguire il codice VBA; verrà visualizzata una finestra di dialogo di KutoolsforExcelper selezionare l’intervallo su cui desideri operare. Consulta lo screenshot:

4. Fai clic su OK e tutti i valori univoci verranno eliminati.

---

Elimina valori univoci con Kutools per Excel

Se non hai dimestichezza con VBA, puoi utilizzare la funzione «Seleziona celle duplicate/uniche» di Kutools per Excel per rimuovere i valori univoci.

Kutools per Excel include oltre 300 strumenti pratici per Excel. Provalo gratuitamente e senza limitazioni per 30 giorni! Scaricalo ora

1. Seleziona la colonna da cui desideri eliminare i valori univoci e fai clic su Kutools > Seleziona > Seleziona celle duplicate/uniche. Vedi lo screenshot:

2. Nella finestra di dialogo visualizzata, selezionare Valori unici e fare clic su Ok, quindi chiudere la finestra. Vedere lo screenshot:

3. A questo punto, tutti i valori che compaiono una sola volta sono stati selezionati. Fare clic con il pulsante destro del mouse e scegliere Elimina dal menu contestuale. Vedere lo screenshot:

4. Nella finestra di dialogo Elimina, seleziona «Riga intera» e fai clic su OK. Guarda lo screenshot:

Ora puoi notare che i valori univoci sono stati rimossi.

Suggerimento: se vuoi rimuovere solo il contenuto delle celle, puoi fare clic su Cancella contenuto nel menu contestuale al passaggio 3.

Clicca qui per ulteriori informazioni su Seleziona celle duplicate/uniche.

---

Articoli correlati:

• Elimina tutti i commenti in Excel
• Rimuovi Riga duplicata in Excel

---