为何VBA代码在模块中运行正常，绑定按钮点击触发时却出错？

• 核心问题出在Evaluate方法的默认上下文：未指定所属对象时，Evaluate默认属于当前活动工作表。
  • 直接在模块运行代码时，当前活动工作表刚好是Worksheets(5)，计算的是目标表的单元格，结果正常。
  • 按钮一般放置在其他工作表中，点击按钮触发代码时，当前活动工作表是按钮所在的工作表，Evaluate会读取当前活动表对应地址的单元格做计算，和你要操作的Worksheets(5)单元格不匹配，自然就会出现0值、类型不匹配的#VALUE!错误。

只需要修改Evaluate对应的代码行，明确指定用目标工作表的Evaluate方法即可，不受活动表切换的影响。

修正后的完整代码 #

Sub ConvertReturns()
    ' 可选：关闭屏幕更新提高运行速度，结束后再开启
    Application.ScreenUpdating = False
    
    ' 复制操作可以直接指定目标区域左上角，不需要写全相同大小范围
    Worksheets(2).Range("A1:AQ1000").Copy Worksheets(5).Range("A1")
    
    Dim rng As Range
    Set rng = Worksheets(5).Range("B2:AQ1000")
    ' 关键修改：明确使用Worksheets(5)的Evaluate方法，固定计算上下文
    rng = Worksheets(5).Evaluate(rng.Address & "/100")
    
    Worksheets(5).Range("B2:AQ1000").NumberFormat = "0.00%"
    Worksheets(5).Columns("A:AQ").AutoFit
    
    Application.ScreenUpdating = True
End Sub

• 尽量用工作表名称代替索引（比如Worksheets("数据结果")代替Worksheets(5)），避免手动调整工作表顺序后索引变化导致操作错表。
• 如果B2:AQ1000范围内存在文本型单元格，可以在计算前加判断跳过文本，避免出现不必要的错误值。

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