在C2:C251当中，在C2输入，C2显示，任何数字都会在后

这样么？
Private Sub Worksheet_Change(ByVal Target As Range) '自动单位填充
Dim cell As Range
Dim value As Variant
' 检查是否在C2:C251范围内进行更改
If Not Intersect(Target, Range("C2:C251")) Is Nothing Then
Application.EnableEvents = False ' 禁用事件以避免无限循环
For Each cell In Target
value = cell.value
' 检查单元格内容是否为数字
If IsNumeric(value) Then
' 格式化数字为最多3位小数
value = Round(value, 3)
' 检查是否为整数
If Int(value) = value Then
' 添加单位"A"并更新单元格值，不添加小数点
cell.value = Int(value) & "A"
Else
' 添加单位"A"并更新单元格值
cell.value = value & "A"
End If
End If
Next cell
Application.EnableEvents = True ' 启用事件
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C251")) Is Nothing And IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Round(Target.Value, 3) & "A"
Application.EnableEvents = True
End If
End Sub
关于楼上的代码修改。
首先
For Each cell In Target 这一段。。
多单元格一起输入。。。只有复制黏贴，而复制黏贴并不触发 这个代码。。。
所以无用。
其次 round(target.value.3) 本身就有 后置去0的功能
描述的不太好
简单地说 round(3,3) 他并不是=3.000 只有小数点3位或者超过3位，才会显示3.333
3，3.1， 3.22 这样3个数字并不会变成3.000,3.100,3.220 所以 综上所述
If Not Intersect(Target, Range("C2:C251")) Is Nothing And IsNumeric(Target.Value) Then
用这个IF来判断是否是数字 并且在 C2:C251范围中之内
Target.Value = Round(Target.Value, 3) & "A"
代码简洁尤为重要。。。