エクセルのマクロの質問です。
エクセルのマクロの質問です。
こんにちわ。エクセルのマクロを始めて間もないものです。
下記ようなマクロを組みましたが「Windows("B.xls").Activate」(※の部分)でとまってしまいます。
なぜかもわからず困っています。
Workbooks.Open Filename:="B.xls"
For i = 1 To 1000 Step 1
Range(Cells(i, 1), Cells(i, 5)).Select
Selection.Copy
Windows("A.xls").Activate
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
※ Windows("B.xls").Activate
Next i
一応、動作としては
Bのマクロを開く→ループ始点(1000回繰り返す)
一回目⇒A1~B5をコピー→Aのエクセルを開く→A列のセル1行目に貼り付ける→Bのエクセルを開く
二回目⇒A2~B5をコピー→Aのエクセルを開く→A列のセル2行目に貼り付ける→Bのエクセルを開く
.
.
.
ループ終点
こんな感じで作成しましたが、どうしても上手く動かないで困っています。
無駄な動作が多いかもしれませんが、ぜひアドバイスをお願いします。
また、もっと簡単な動作ができるのであればそちらもお願いします。
お礼
マクロ登録完了出来ました。 有難うございました。