VBA：删除2个小数和1000个分隔符的句点和数字格式

Question

我正在尝试格式化一些数据。我正在尝试在I列中找到句点（。），并将其替换为空白（“”）。另外，我正在尝试在I列中将数字格式用于2个小数和1000个分隔符。我的问题是句点消失了，但是numberformat不起作用。我需要能够将数字加在一起。

图片来源：

月经似乎是个问题。

当我将（文本？）转换为数字时，我可以一起计算数字：

我还想知道从单元格中删除时间段的最佳方法是什么。我宁愿不使用find函数，因为它不能很好地工作。也许for循环更好？

Public Sub Insight()

Range("A:A").NumberFormat = "0"
Range("I:I").NumberFormat = "#,##0.00"

Worksheets(1).Columns("I").Replace _
 What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False





End Sub