Eliminare duplicati Listbox

Hai un problema con Excel?

Nuova discussione

Eliminare duplicati Listbox
di katx00 data: 04/05/2016 14:29:36
Ciao a tutti,
ho una listbox che importa dati dalla prima colonna di un foglio.
Molti di questi dati sono identici ed io avrei bisogno che elimasse le stringhe duplicate.
Ho provato con "RemoveItem" ma sembra non funzionare.
Potreste darmi una mano? :)
Grazieeee

Posto il codice

Sheets("Resoconto").Select
With Sheets("Resoconto").Range("A2").CurrentRegion
Righe = .Rows.Count - 1
Set Intervallo3 = .Offset(1, 0).Resize(Righe, 1)
End With
With ListBox1
.RowSource = Intervallo3.Address
.MultiSelect = 0
End With

For indice = ListBox1.ListCount To 1 Step -1
If ListBox1.List(indice) = ListBox1.List(indice - 1) Then
ListBox1.RemoveItem indice
End If
Next indice

di alfrimpa data: 04/05/2016 14:43:19
Ciao katx00

Prova con la macro qui sotto presupponendo che i dati siano sul foglio1 da A1 in poi

Alfredo

Sub CreaElencoUnivoco()
 Dim CL As Range, Intervallo As Range, Elenco As New Collection
 Dim Valori As Variant
 Worksheets("Foglio1").Select
 Set Intervallo = Range("A1", Range("A1").End(xlDown))
 On Error Resume Next
 For Each CL In Intervallo
 Elenco.Add CL.Value, CStr(CL.Value)
 Next
 On Error GoTo 0
 With Worksheets("Foglio1")
    .ListBox1.Clear
 For Each Valori In Elenco
     .ListBox1.AddItem Valori
 Next
 End With
 End Sub

di katx00 data: 04/05/2016 14:52:28
Funziona perfettamente!
Grazie mille!!!

Vuoi Approfondire?