Question

我已经录制了一个快速宏，它从我的起始工作表移动到另一个工作表，复制一些单元格，然后返回到原始工作表以粘贴复制的单元格的内容。在录制宏时，工作表有一个特定的名称，我正在尝试理解如何更改它，以便宏将返回到我在启动宏时所处的工作表，而不是返回到特定命名的宏。这就是代码的样子：

Sheets("vlookup template").Select
Range("A1:K1").Select
Selection.Copy
Sheets("Sheet8").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("vlookup template").Select
Range("B2:K2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet8").Select
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B2:K11")
Range("B2:K11").Select
Selection.Copy

我想更改它，以便它不会转到'sheet8'而返回原始工作表。

Answer 1

Dim homeSheet As WorkSheet
Set homeSheet = ActiveSheet

'.... Do stuff

homeSheet.Activate

有关详细信息，请参阅Avoid Select and Activate。

返回开始工作表

1 个答案: