Excel VBA优化：移除.Activate与.Select并支持隐藏工作表

没问题！我帮你把代码改成完全不依赖Activate和Select的版本，而且就算目标工作表处于隐藏状态也能正常执行自动填充操作。先看修改后的完整代码：

Sub AutoFillWithoutActivate()
    Dim wb_gr As Workbook
    Dim sh_9 As Worksheet
    Dim lr As Long
    Dim fillRange As Range
    
    ' 假设你已经完成了wb_gr的打开操作，这里直接引用目标工作表
    Set sh_9 = wb_gr.Worksheets("sh_9_overtid_år")
    
    ' 计算A列最后一个非空单元格的行号（完全绑定目标工作表，避免切换错误）
    lr = sh_9.Cells(sh_9.Rows.Count, "A").End(xlUp).Row
    
    ' 定义要填充的完整目标范围
    Set fillRange = sh_9.Range("D3:D" & lr)
    
    ' 执行自动填充操作，直接操作工作表对象，无需激活/选中
    sh_9.Range("D3").AutoFill Destination:=fillRange
End Sub

关键改动说明： #

• 彻底移除Activate/Select：全程通过对象变量直接引用工作簿和工作表，避免了频繁切换激活状态带来的卡顿和潜在逻辑错误。
• 支持隐藏工作表运行：所有操作都是直接对工作表对象进行的，不需要工作表处于可见或激活状态，就算工作表隐藏也能正常完成填充。
• 更可靠的行号计算：用sh_9.Cells(sh_9.Rows.Count, "A")定位A列最后一行，彻底摆脱了对当前激活工作表的依赖，避免了跨工作表操作时的误判。
• 清晰的范围定义：提前明确填充的目标范围，让代码逻辑更直观，也减少了重复引用对象的冗余操作。

如果你的原有代码还有其他业务逻辑，只需要把这段填充逻辑替换进去即可，功能和原有代码完全一致，但稳定性和兼容性大幅提升。

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