1

私のコードでは、1 つのシートから 2 行のセルをコピーして別のシートに貼り付けています (適切に機能している他のものと一緒に、ここですべてを参照する必要はありません)。私の問題は、マクロを記録するために最初に使用されたシートだけでなく、マクロを実行するために選択したすべてのシートに対してマクロにこれを実行させたいことです。

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 です。

何をすべきかわからない。

トレントン

4

2 に答える 2

1

これで済むはず…

Sheets("Gr 3 Lang").Rows("1:2").Copy ActiveSheet.Range("A1")
于 2012-07-09T19:12:35.437 に答える
0 
Sheets(1).Rows("1:2").EntireRow.Copy
ActiveSheet.Paste

1を必要なものに置き換えます。Sheets（ "Gr 3 Math"）は、名前またはインデックスで使用できます。

于 2012-07-09T17:08:18.943 に答える