Calcolo del count dei valori univoco in VBA che inizia con un nome particolare

Sto cercando di identificare il count dei valori unici in una colonna che inizia con un particolare nome John.

Come fai questo in VBA?

  • Eliminare righe con più conditons utilizzando VBA
  • Formula che ritorna Colonna Un valore per la row contenente il valore MIN di un intervallo
  • Aprire una volta il foglio di Excel e scrivere su di esso iterativamente
  • Restituisce solo il mese da una data (come data, non il numero del mese) - Excel
  • Elemento di dropdown nel rapporto di diaspro
  • Non visualizzare variables in una macro di Excel
  • ColumnA ColumnB JohnRed 3 JohnBlue JohnGreen JohnRed IanRed 

    Se stai cercando John. Poi il suo 3.

  • Come autofilia relativamente in excel
  • sumif restituisce 0, anche se la cella può avere un valore 2 o più di 2
  • GemBox recupera i valori calcolati da un foglio di calcolo o da un Flexcel
  • copiare tutti i contenuti dalla casella di riepilogo (righe variables, colonne costanti) alla tabella a clic del button (VBA)
  • Copia Incolla tramite function non funziona
  • Linee griglia TeeChart e Excel
  • One Solution collect form web for “Calcolo del count dei valori univoco in VBA che inizia con un nome particolare”

    Puoi provare a leggere il valore della Range e confrontare con "John*" . Utilizzare un Dictionary per contare le Keys univoche.

    Codice

     Option Explicit Sub UniqueJohns() Dim JohnsArr As Variant Dim i As Long Dim Dict As Object Dim Result As Long Set Dict = CreateObject("Scripting.Dictionary") ' read into arrays, to run faster JohnsArr = Application.Transpose(Range("A1:A5")) ' loop through arrays elements For i = 1 To UBound(JohnsArr) If JohnsArr(i) Like "John*" Then ' check if already exists in Dictionary If Not Dict.exists(JohnsArr(i)) Then Dict.Add JohnsArr(i), JohnsArr(i) End If End If Next i Result = UBound(Dict.keys) ' <-- this is the result, unique keys in Dictionary MsgBox Result End Sub 
    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.