| |
こんにちは。かみちゃん です。
>>>どの行で、どのようなエラーになるのでしょうか？
>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
としてみてください。
もっと効率のいい書き方（シートやセルをアクティブにしない）はありますが、
それは、もう少し先でいいと思います。
|
|
かみちゃん
- 08/10/26(日) 10:33 -
