Excel VBA跨工作表传值无需Activate的最优实现方法咨询

With Sheets("") 是这类场景下通用且高效的最优实现方式，完全可以实现无需激活工作表即可操作其他表的需求，且适配所有工作表操作场景。

优化后代码示例 #

你给出的代码可以直接改写为如下形式，全程不会触发工作表切换：

' 显式绑定Sheet1操作，避免隐式引用出错
With Worksheets("Sheet1")
    .Range("g2") = length
    .Range("g3") = t1
    .Range("g4") = t2
    .Range("g5") = ti
    .Range("g6") = freq
End With

' 直接操作Sheet2，无需激活
With Worksheets("Sheet2")
    .Range("b2") = t1
    .Range("b3") = t2
    .Range("b4") = ti
End With

方案优势 #

• 完全规避Activate、Select等会触发界面交互的方法，没有工作表跳转闪烁，运行效率更高，跳过了不必要的界面渲染步骤
• 代码可读性和稳定性更强，块内所有操作都明确绑定到指定工作表，不会因为活动工作表意外变化导致引用错误，多工作表交叉操作的场景下优势尤为明显
• 通用性极强，不管是单元格赋值、区域批量操作、格式调整、操作图表/透视表等工作表对象，都可以通过With块绑定目标表实现，适配所有工作表操作场景
• 代码更简洁，无需重复书写工作表名称，减少冗余代码

可选拓展方案 #

如果你需要在代码的多个零散位置操作同一个工作表，也可以提前将工作表对象赋值给变量使用，效率和With块基本一致：

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")

ws1.Range("g2") = length
ws1.Range("g3") = t1
ws1.Range("g4") = t2
ws1.Range("g5") = ti
ws1.Range("g6") = freq

ws2.Range("b2") = t1
ws2.Range("b3") = t2
ws2.Range("b4") = ti

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