VBAのコピーマクロがデバッグに引っかかる

下記コピーマクロで１／２度成功（！）しましたが、以後うまく動かず難渋しています。更に断続的に更に３／４カ所列を追加したいのですが、見本と同様に列名を入れて冗漫に下記並べるしか他に方法はありませんか？

Sub 全てのエリアに式をコピーする()
Sheets("WORK").Select

'Range("O5:O5").Select
'Selection.Copy


'Sheets("WORK").Select
'Range("O5:O2000").Select
'ActiveSheet.Paste

End Sub

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/06/01 11:32

Sub 全てのエリアに式をコピーする2()

　With Worksheets("WORK")
　　　　　　.Range("O5").Copy .Range("O5:O2000")
　End With
End Sub

とか。

この回答へのお礼

他の方から説明不足との指摘を受けましたが、あなたのお陰で大助かりです。深謝深謝。今後ともよろしくお願いします。

お礼日時：2009/06/01 18:59

No.2 回答者： hana-hana3 回答日時： 2009/06/01 11:33

＞下記コピーマクロで１／２度成功（！）しましたが、以後うまく動かず難渋しています。

更に断続的に更に３／４カ所列を追加したいのですが、見本と同様に列名を入れて冗漫に下記並べるしか他に方法はありませんか？

意味がわかりません。
何がしたいのでしょうか？
行いたい事を文章で正確に記載した方が良いでしょう。

この回答へのお礼

ありがとう。
理解してくれた方もおり、大感謝。

お礼日時：2009/06/01 13:25