Utilizza una cella di Excel come un arrays

Ho un file Excel e devo contare il numero di "." per each cella. Una cella ha alcuni caratteri (ad esempio 'A01.10.10.10') È ansible trasferire in un arrays il contenuto di una singola cella?

  • xml per eccellere 2003 issue with datetime
  • Tabella di copia di problemi in Excel basata su criteri
  • Errore di run-time "1004" con la mia VBA per hide e distriggersre le righe
  • Come eliminare tutte le celle che non contengono valori specifici (in VBA / Excel)
  • VBA per abbinare e riportre la row in base al text nella rubrica
  • Macro per copiare i dati da un foglio all'altro in base alla data corrente
  • excel - se colonna contro un'altra colonna
  • UserForm di Excel VBA si chiude immediatamente
  • Copia e incolla il valore della cella fino a quando il nuovo valore della cella ripeterà il process
  • Forme utente Excel in vba
  • Foglio di calcolo Zend Gdata che non alimenta le celle se è vuoto all'inizio del foglio
  • La macro non copia dati da un foglio a un altro foglio
  • 3 Solutions collect form web for “Utilizza una cella di Excel come un arrays”

    È ansible utilizzare Split() per questo:

     myArray = Split(Range("A1"), ".") 

    Questo "divide" l' Range("A1") per un periodo in un arrays.


    Potresti anche andare dritti al return della function split() per get il colpo dal momento che il return è un arrays (ignorando la necessità di dim l'arrays):

     UBound(Split(Range("A1"),".")) 

    Quale potrebbe sputare 3 dato il tuo contributo.

    Perché hai bisogno di un arrays per farlo?

    Puoi get la tua risposta in una formula Excel utilizzando

     =LEN(A1)-LEN(SUBSTITUTE(A1,".","")) 

    Oppure VBA

     Sub CountDots() Dim str As String str = "A01.10.10.10" MsgBox Len(str) - Len(Replace(str, ".", vbNullString)) End Sub 

    Non c'è bisogno di un arrays. Se si intende fare qualcosa di diverso con la string e ne ha bisogno in una matrix però usare @JNevill risposta

    Puoi trovare il "." in una singola cella utilizzando una formula:

     =Len(targetcell)-Len(Substitute(targetcell,".","")) 

    Conta il numero di celle, quindi conta il numero di celle dopo il "." è stato sostituito con "" (nulla).

    Non avresti bisogno di una matrix per questo.

    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.