Excel VBA根据点数创建索引

Question

基本上，我正在尝试转换＆＃34; = LEN（C5）-LEN（SUBSTITUTE（C5;＆＃34;。＆＃34 ;;＆＃34;＆＃34;））+ 1＆＃34 ; excel公式适用于所有单元格作为其中一个宏的嵌入式进程。但是，当我运行代码时，它不会显示任何单元格的值。该列设置为＆＃34; General＆＃34;格式，这不应该是一个问题。关于如何获得细胞价值的任何想法？

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

Answer 1

更改此行

For i = 3 To i = 10000

要

For i = 3 To 10000