这个 * 应该 * 用逗号替换所有的句点，而不管数据类型是什么（作为字符串，所以你将不再能够容易地从它们计算）。
如果你想让这些数字成为带有正确分隔符的数字，你仍然会遇到很多麻烦。
顺便说一句，当我使用查找和替换（Ctrl + H）时，我得到了相同的结果，我的“4. 123”变成了“4，123. 00”。这可能与我们的系统设置有关。

Sub Test_Replace_Period_with_Comma()

    Dim ValueRange As Range
    Dim ValueSet
    
    Dim X As Long
    Dim Y As Long
    
    Set ValueRange = Intersect(Columns("Q:S"), Sheet8.UsedRange)
    ValueSet = ValueRange
    
    If ValueRange.Cells.Count = 1 Then
        ReDim ValueSet(1 To 1, 1 To 1)
    End If
    
    For X = 1 To UBound(ValueSet, 1)
        For Y = 1 To UBound(ValueSet, 2)
            'Debug.Print ValueSet(X, Y)
            If ValueSet(X, Y) <> "" Then
                ValueSet(X, Y) = Replace(CStr(ValueSet(X, Y)), ".", ",", 1, , vbTextCompare)
            End If
        Next Y
    Next X
    
    ValueRange.NumberFormat = "@"
    ValueRange = ValueSet
    
End Sub

第一节第一节第一节第一节第一次