如何修改Excel不同工作表单元格的值？VBA代码执行无效果求助

你的代码问题核心是未明确指定Range("D24")的所属工作表。直接写Range("D24")时，VBA会默认读取当前激活工作表的D24单元格，而非你定义的automater（即Automater工作表）中的值，这就导致跨表赋值操作没有拿到正确的数据源，自然看不到效果。

修正后的代码如下：

Sub RepForm_Click()
    Dim visualizer3 As Worksheet, automater As Worksheet

    Set visualizer3 = Sheets("Visualizer")
    Set automater = Sheets("Automater")
    ' 同表赋值，加上工作表限定更严谨，避免激活表变化导致错误
    automater.Range("C22").Value = automater.Range("D24").Value
    ' 跨表赋值，明确指定取值来源为Automater工作表
    visualizer3.Range("E2").Value = automater.Range("D24").Value
End Sub

额外提示：

• 所有涉及工作表的单元格操作，都加上对应的工作表变量前缀，能彻底避免因当前激活工作表变化引发的逻辑错误。
• 哪怕是同工作表内的赋值，加上工作表限定也能让代码可读性和健壮性更强。

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