Excel VBA根据点数创build索引

基本上，我试图将“= LEN（C5）-LEN（SUBSTITUTE（C5;”。“;”“））+ 1”excel公式适用于所有单元格作为其中一个macros的embedded过程。 但是，当我运行代码时，它不显示单元格的任何值。 列设置为“常规”格式，所以不应该是一个问题。 关于如何获得细胞价值的任何想法？

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