这样给客户看得出来你太做作了。

把十个阿拉伯数字中的其中两三个数字全部替换成同一个*号就足够了。

Sub ReplaceStar()

    Dim x As Integer
    Dim y As Integer
    
    Dim buf As String
    
    Dim rg As Range
    
    Set rg = ActiveSheet.Cells(Selection.Row, Selection.Column)
    
    Application.ScreenUpdating = False
    
    For x = 0 To Selection.Columns.Count - 1
        For y = 0 To Selection.Rows.Count - 1
        
            buf = rg.Offset(y, x).Value
            buf = Left(buf, Len(buf) - 4) + "****"
            rg.Offset(y, x).Value = buf
        
        Next y
    Next x
    
    Application.ScreenUpdating = True

End Sub