Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23660 / 76732 ←次へ | 前へ→

【58435】Re:For文で集計貼付
発言  かみちゃん  - 08/10/26(日) 10:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>>どの行で、どのようなエラーになるのでしょうか?
>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
としてみてください。

もっと効率のいい書き方(シートやセルをアクティブにしない)はありますが、
それは、もう少し先でいいと思います。
0 hits

【58431】For文で集計貼付 初心者 08/10/26(日) 6:36 質問
【58432】Re:For文で集計貼付 かみちゃん 08/10/26(日) 8:00 発言
【58434】Re:For文で集計貼付 初心者 08/10/26(日) 10:26 質問
【58435】Re:For文で集計貼付 かみちゃん 08/10/26(日) 10:33 発言
【58443】Re:For文で集計貼付 初心者 08/10/26(日) 13:59 質問
【58444】Re:For文で集計貼付 かみちゃん 08/10/26(日) 14:09 発言
【58445】Re:For文で集計貼付 初心者 08/10/26(日) 14:36 質問
【58448】Re:For文で集計貼付 かみちゃん 08/10/26(日) 16:04 発言
【58451】Re:For文で集計貼付 初心者 08/10/26(日) 18:51 質問
【58452】Re:For文で集計貼付 かみちゃん 08/10/26(日) 19:13 発言
【58453】Re:For文で集計貼付 初心者 08/10/26(日) 19:56 質問
【58454】Re:For文で集計貼付 かみちゃん 08/10/26(日) 20:32 発言
【58455】Re:For文で集計貼付 初心者 08/10/26(日) 21:58 お礼

23660 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free