Excel VBAはドット数に応じてインデックスを作成する - Excel、VBA、Excel-VBA

基本的に、私は変換しようとしています"= LEN（C5）-LEN（SUBSTITUTE（C5;"。 ";" "））+ 1"は、マクロの1つに埋め込まれたプロセスとしてすべてのセルに適用できる式に優れています。ただし、コードを実行すると、セルの値は表示されません。列が "General"形式に設定されているため、問題にはなりません。セルの値を取得する方法について何か考えがありますか。

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

回答：

この行を変更する

For i = 3 To i = 10000

に

For i = 3 To 10000