In questo articolo, creeremo una funzione personalizzata per contare i valori univoci nell'intervallo definito.
I dati grezzi per questo esempio sono costituiti da numeri casuali nelle righe. In questo esempio, vogliamo contare il numero di numeri univoci in ogni riga.
Abbiamo creato la funzione personalizzata "CountUniqueValues" per trovare il conteggio dei numeri univoci nella riga. Questa funzione accetta l'intervallo come input e restituisce il conteggio univoco dei numeri.
Spiegazione logica
Abbiamo creato la funzione personalizzata "CountUniqueValues" per ottenere il conteggio dei numeri univoci. In questa funzione personalizzata, abbiamo creato l'oggetto dell'oggetto della raccolta. Questo oggetto di raccolta viene utilizzato per creare l'elenco dei numeri univoci. Una volta che abbiamo l'elenco dei numeri univoci, otteniamo il conteggio degli elementi nella raccolta.
Spiegazione del codice
Application.Volatile viene utilizzato perché verrà ricalcolato ogni volta che il valore di una cella viene modificato nella cartella di lavoro.
On Error Resume Next viene utilizzato per gestire gli errori.
Si prega di seguire sotto per il codice
Opzione Funzione esplicita CountUniqueValues(InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'For error Handling On Error Resume Next 'Esegue il ciclo di tutte le celle nell'intervallo definito For Each CellValue In InputRange UniqueValues.Add CellValue , CStr(CellValue) ' aggiunge l'elemento univoco Next 'Restituisce il conteggio del numero di valori univoci CountUniqueValues = UniqueValues.Count End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica