• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:ほんの少し変更しただけで、マクロが正常動作しないのは?)

マクロの変更で正常動作しない理由は?

このQ&Aのポイント
  • 「てすと1」は正常に動作し、結果が反映されるが、「てすと2」は動作するものの、データがコピーされないことがあります。
  • 変更したのはRange("B5", Range("B5").End(xlDown))のみです。
  • 手動でWorksheets(i)をアクティブにしておくと、「てすと2」でも結果が反映されます。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

> ただ、「てすと2」は、手動で Worksheets(i)をアクティヴにしておく > と、きちんと結果が反映されます。 このことから、基本的に処理は誤っていないものと判断しました。 結果   Worksheets(i).Range("B5", Range("B5").End(xlDown)).Copy _   Destination:=Worksheets(Worksheets.Count).Range("IV4").End(xlToLeft).Offset(0, 1) の 「Range("B5").End(xlDown)」部分に対象ワークシート指定がされていない せい ではとパッと見て思いました。 「Worksheets(i).Range("B5").End(xlDown)」としてみてはいかがでしょう。

oshietecho-dai
質問者

お礼

早速のご回答、誠に有難うございました。 だから、With がよく使用されてるんですね! 修正しておきました。 安心して、使用できます。

関連するQ&A