Mac版Excel如何去除公式生成整数后的.00后缀

你的问题核心在于固定的单元格格式"0.00"会强制所有结果都显示两位小数，包括整数；而提前设置常规格式又会让输入的分数被Excel误判为日期。其实完全可以把格式判断整合到原VBA代码里，不用事后处理，直接根据计算结果动态设置格式就行。

下面是修改后的完整代码，我标注了关键的修改部分：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err_handler
Application.EnableEvents = False
If Target.CountLarge > 1 Then GoTo exit_handler
If Target = Empty Then GoTo exit_handler
If Not Intersect(Target, Columns("P")) Is Nothing Then
    With Target
        .NumberFormat = "@" ' 先设为文本避免输入分数变日期
        .Value = CDbl(Evaluate(.Value & "+1")) ' 执行分数+1计算
        
        ' --- 新增：根据计算结果动态设置格式 ---
        If Int(.Value) = .Value Then
            .NumberFormat = "0" ' 整数显示为无小数点形式
        Else
            .NumberFormat = "0.00" ' 小数保留两位
        End If
        ' --- 新增结束 ---
    End With
End If
exit_handler:
Application.EnableEvents = True
Exit Sub
err_handler:
MsgBox Err.Number & ": " & Err.Description
Resume exit_handler
End Sub

关键逻辑说明： #

1. 先把单元格设为文本格式@，确保用户输入的分数（比如7/1）不会被Excel自动转换成日期，这一步和你原来的代码一致。
2. 执行CDbl(Evaluate(.Value & "+1"))完成计算，得到数值型结果。
3. 通过Int(.Value) = .Value判断结果是否为整数：
   • 如果是整数，就设置格式为0，这样就不会显示.00了；
   • 如果是小数，保持0.00格式，保留两位小数。

这样既解决了整数带后缀的问题，又避免了输入分数变日期的麻烦，完全整合在原代码流程里，不用额外的事后处理。

内容的提问来源于stack exchange，提问作者honkin