|
こんにちは。かみちゃん です。
>>>どの行で、どのようなエラーになるのでしょうか?
>Range("E3,I3,M3(省略)・・・・・,BW3").Select
>↑この行で「実行時エラー1004 Rangeクラスのselectメソッドが失敗しました」
>とでます。
たとえば、
Range("E3,I3").Select
というような簡単なコードにしても同様のエラーになりますか?
(省略)・・・・・
の内容に問題があるような感じがします。
>>>なお、
>>> If Cells(i, 1) <> "" Then '◆
>>>の行は、変数i が 1 のときは、マクロ開始時のアクティブシートですが、
>>>変数i が 2以上のときは、Sheet3 のセルがアクティブになっていますが大丈夫
>>>でしょうか?
>ご指摘のとおり、E3,I3をsheet3に貼り付けたあとにsheet3がアクティブになり、処理が進みません。
>どのように修正すれば、またaheet1のデータを取得し、sheet3に貼り付けるという処理を繰り返してくれるのでうしょうか?お教えください。
とりあえずは、
For i = 3 To 100
Worksheets("Sheet1").Activate
Cells(1, 1) = i
としてみてください。
もっと効率のいい書き方(シートやセルをアクティブにしない)はありますが、
それは、もう少し先でいいと思います。
|
|