Vba excel in listbox

Question

Buongiorno, come è possibile tramite codice vba, estrarre dei dati univoci da una colonna di un foglio excel e trascriverli in una listbox ? Grazie dell'aiuto. Luca

Answer 1

Buongiorno!

Ecco un esempio di codice VBA che estrae dati univoci da una colonna in un foglio Excel e li trascrive in una casella di riepilogo:

Sub privato UserForm_Initialize()

«Definire le variabili Dim ws come foglio di lavoro Dim lastRow As Long Attenua uniqueData come variante Dim i As Long

'Imposta foglio di lavoro e ultima riga Set ws = ThisWorkbook.Sheets("Foglio1") lastRow = ws. Celle (ws. Rows.Count, "A"). Fine(xlUp). Fila

'Ottieni dati univoci uniqueData = Application.Transpose(ws. Range("A2:A" & lastRow). Valore) uniqueData = RemoveDuplicates(uniqueData)

'Trascrivi dati univoci in listbox For i = LBound(uniqueData) A UBound(uniqueData) ListBox1.AddItem uniqueData(i) Avanti i

Fine sub

Funzione RemoveDuplicates(ByVal arr As Variant) As Variant

«Definire le variabili Dim dict come oggetto Dim i As Long

'Crea oggetto dizionario Set dict = CreateObject("Scripting.Dictionary")

'Aggiungi valori di matrice all'oggetto dizionario For i = LBound(arr) A UBound(arr) If Not dict.exists(arr(i)) Then Dict. Aggiungi arr(i), Niente Fine Se Avanti i

'Return dictionary keys as variant array RemoveDuplicates = dict.keys

Funzione finale

Questo codice presuppone che si disponga di un form utente con una casella di riepilogo denominata "ListBox1". Imposta innanzitutto il foglio di lavoro e l'ultima riga dei dati, quindi utilizza la funzione "RemoveDuplicates" per estrarre dati univoci dalla colonna A. Infine, trascrive i dati univoci nella casella di riepilogo.

La funzione "RemoveDuplicates" utilizza un oggetto dizionario per aggiungere valori di matrice come chiavi. Poiché le chiavi del dizionario sono univoche, questo rimuove efficacemente eventuali duplicati e restituisce le chiavi del dizionario come matrice variante.

Gentilmente fatemi sapere, se avete bisogno di ulteriore assistenza, sarò lieto di aiutarvi ulteriormente.

Migliori saluti Shakiru ·

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.