在VBA中保留ActiveSheet

Question

在我的代码中，我从一张纸上复制两行单元格并将其粘贴到另一张纸上（以及其他正常工作的东西，因此无需在此处引用它）。我的问题是我希望宏对我选择运行宏的每个工作表执行此操作，而不仅仅是最初用于记录宏的工作表。

Sheets("Gr 3 Lang").Select
ActiveCell.Rows("1:2").EntireRow.Select
Selection.Copy
Sheets("Gr 3 Math").Select
ActiveSheet.Paste

本质上，如果我打算在“Gr 4 Math”中运行宏，我不希望它说“Gr 3 Math”。

我尝试使用ActiveSheet，但在那时“Gr 3 Lang”是ActiveSheet。

不确定该怎么做。

特伦顿

Answer 1

应该这样做......

Sheets("Gr 3 Lang").Rows("1:2").Copy ActiveSheet.Range("A1") 

Answer 2

Sheets(1).Rows("1:2").EntireRow.Copy
ActiveSheet.Paste

将1替换为您想要的任何内容。您可以按名称或索引使用表格（“Gr 3 Math”）。