Excel VBA creazione dell'indice in base al numero di punti - excel, vba, excel-vba

Fondamentalmente, sto cercando di convertire"= LEN (C5) -LEN (SOSTITUTO (C5;". ";" ")) + 1" formula di Excel da applicare a tutte le celle come processo incorporato in una delle macro. Tuttavia quando eseguo il codice, non mostra alcun valore delle celle. La colonna è impostata sul formato "Generale", quindi non dovrebbe esserci un problema. Qualche idea su come ottenere il valore sulle celle?

For i = 3 To i = 10000
Cells(i, 4).Value = Len(Cells(i, 3).Value) - Len(WorksheetFunction.Substitute(Cells(i, 3).Value, ".", "")) + 1
Next i

risposte:

Cambia questa linea

For i = 3 To i = 10000

A

For i = 3 To 10000