Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10722 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20357】セルからセルへデータを転記させるとエラーが出てきます ZERO 04/12/7(火) 10:27 質問[未読]
【20358】Re:セルからセルへデータを転記させるとエ... IROC 04/12/7(火) 11:05 回答[未読]
【20359】Re:セルからセルへデータを転記させるとエ... ZERO 04/12/7(火) 11:59 質問[未読]
【20357】セルからセルへデータを転記させるとエラ...
質問  ZERO  - 04/12/7(火) 10:27 -
引用なし
パスワード
   質問させてください！

セルからセルへデータを転記させるマクロを作っているのですが、セルのデータ量が多い為なのか、「アプリケーション定義またはオブジェクト定義のエラーです」というメッセージが出てきます。
マクロでは、下のようなコードを書いています。

Workbooks(name).Sheets(name3).Cells(Y, X) = Sheets(name5).Cells(Y, X)

途中は省いているのですが、簡単に説明すると、あるシートのセルから、別のシートのセルへループを使って転記させるというマクロです。
コピー/ペーストのマクロを作ろうとしましたが、処理中にその都度画面が切り替わって目に優しくないので止めました。

エラーが出るセルには、大量の文章が入力されているので、それが引っかかっているのだと思います。

エラーを回避して転記する処理を完成させるにはどうすれば良いでしょうか？
どなたかご教授ください(>_<)
【20358】Re:セルからセルへデータを転記させると...
回答  IROC  - 04/12/7(火) 11:05 -
引用なし
パスワード
   >Workbooks(name).Sheets(name3).Cells(Y, X) = Sheets(name5).Cells(Y, X)
セル範囲のサイズが違うのではないでしょうか？


>コピー/ペーストのマクロを作ろうとしましたが、
>処理中にその都度画面が切り替わって目に優しくないので止めました。
Selectするような記述をしなければよいのです。
Copyメソッドの引数Destinationを指定しては如何ですか？
【20359】Re:セルからセルへデータを転記させると...
質問  ZERO  - 04/12/7(火) 11:59 -
引用なし
パスワード
   ▼IROC さん：
>>Workbooks(name).Sheets(name3).Cells(Y, X) = Sheets(name5).Cells(Y, X)
>セル範囲のサイズが違うのではないでしょうか？

↑セル範囲のサイズが違うとはどういう意味なのでしょうか？？？（無知ですいません・・・）
ちなみに、転記先のシートには何も書き込んでいません。まっさらな状態です。


>
>>コピー/ペーストのマクロを作ろうとしましたが、
>>処理中にその都度画面が切り替わって目に優しくないので止めました。
>Selectするような記述をしなければよいのです。
>Copyメソッドの引数Destinationを指定しては如何ですか？

↑例えば、どのようなコードを書けば良いでしょうか？

目的の処理では、将来的にはif文で条件に一致する行を、他のシートに転記するというマクロを作りたいと考えています。
条件に一致する行を転記できるなら、一行を１セルずつ転記していってもいいし、まとめて一行をコピー/ペーストするといった処理でも良いと考えています。

現在は、条件に一致する行を一行ずつコピーしていって、全ての対象行を検索し終えたらシートを切り替えてまとめてペーストする、というマクロを組んでいます。ただ、このマクロではコピーする行数がが膨大になっていくと処理速度も激減するので、現在改良を求められている次第です。。。
改良するには、まとめてコピー/ペーストをするのではなく、一セルづつ、もしくは一行づつ転記していく処理が速度を上げる一番の方法だと思い、いろいろ質問させていただいております。
長々とすいません。宜しくお願いします！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10722 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free