VBA中如何对表达式结果取两位小数？运行报错“Expected =”

你的代码出现"Expected ="错误，核心问题有两个：

• 错误地给变量名Pitch_Limit_W加了引号，导致Round函数处理的是字符串而非数值变量
• Round函数的计算结果没有赋值给变量，VBA不允许单独调用函数却不处理返回值

修正后的代码如下：

Sub Round_Ex2()
  Dim Pitch_Limit_W As Double

        Pitch_Limit_W = (291 / 20.95)
        ' 将计算结果保留两位小数后重新赋值给变量
        Pitch_Limit_W = Round(Pitch_Limit_W, 2)
        ' 可选：弹出窗口查看结果
        MsgBox Pitch_Limit_W
End Sub

关键说明：

• 直接使用变量名Pitch_Limit_W，不要加引号，让Round函数作用于实际的数值变量
• 必须将Round的返回值赋值给变量（这里重新赋值给原变量），完成小数保留的操作
• 若需要验证结果，添加MsgBox语句可以直观看到保留两位小数后的数值

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