Question

下面的代码是从ThisWorkbook运行的。它打开了wb_gr（已经完成），我正在尝试从D3中的表单“sh_9_overtid_år”进行自动填充，直到A行中最后一次使用的单元格结束。代码正在运行，但我希望摆脱所有.activate和.selcet，并在隐藏工作表的情况下运行它。但是我还没有把它拉下来的技能......任何可以帮助我修改这些代码的人都可以帮助我吗？

wb_gr.Activate
sh_9_overtid_år.Select
Range("D3:D3").Select
lr = Range("A" & Rows.Count).End(xlUp).Row
Selection.AutoFill Destination:=Range("D3:D" & lr), Type:=xlFillDefault

Answer 1

您可以使用With语句处理隐藏的工作表。此外，我认为这里不需要自动填充。

me (Rahul change)

Answer 2

假设sh_9_overtid_år是完全限定的范围（由于AutoFill包含公式而需要D3），这应该这样做：

With sh_9_overtid_år
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("D3:D3").AutoFill Destination:=.Range("D3:D" & lr), Type:=xlFillDefault
End With

Excel vba - 摆脱.activate和.select

2 个答案: