|
こんにちは。かみちゃん です。
>>とりあえずは、
>>For i = 3 To 100
>> Worksheets("Sheet1").Activate
>> Cells(1, 1) = i
>>としてみてください。
>マクロは正常終了しますが、sheet1のE3,I3をコピーして、sheet3に貼り付けを繰り返しているだけのようです。
>実現したいこと(3行処理→4行処理・・・100行処理)はできておりません。
そういう説明がないのと、そういうコードにしているからだと思います。
>実現したいこと(3行処理→4行処理・・・100行処理)
本当は、何がしたいのか、今ひとつよくわからないのですが、
> Range("E3,I3").Select '☆
の部分は、
Intersect(Rows(i), Range("E3,I3").EntireColumn).Select
とすればいいかと思います。
ただし、
> Sheets("sheet3").Select
> Range("G5").Select
というコードにしている以上、
Sheet3のG5セルに、どんどん上書きで貼り付けられると思うのですが、いいのでしょうか?
もしかして、
Range("G" & i + 2).Select
としていのでしょうか?
> ' MsgBox Cells(1, 1).Address(, , , True) '☆
> ここを有効にすると、Microsoft Excelのメッセージがポップアップしてきて、 [sheet1]sheet3!$A$1と表示され、タスクを終了する必要になります。
タスクを終了という意味がわかりませんが、
現在どのブックのどのシートのどのセルを参照しているのかを確認していただくための
ものです。
状況がきちんと理解できれば、不要となります。
|
|