列全体をコピーして別の列に貼り付けたい

列全体をコピーして別の列に貼り付けたいのですが、
「そのコマンドは複数の選択範囲に対して実行できません。」
とエラーになってしまいます。
コードは以下のとおりです。
Worksheets("aaa").Columns(1).Select
Selection.Copy
Worksheets("aaa").Columns(3).Select
ActiveSheet.Paste
よろしくお願いします。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2009/07/17 02:53

そのコピー元のA列の中に非表示の行がありませんか？

フィルターなどが掛かっていて ・・・

非表示の行が無くて Columns(1).Selectで『複数部分の選択』になるような事が無いように思います

この回答へのお礼

ご回答ありがとうございます。
フィルターが掛かっておりました。

お礼日時：2009/07/20 02:10

No.2 回答者： imogasi 回答日時： 2009/07/17 23:04

質問のコードは

Sub test01()
Worksheets("Sheet1").Columns(1).Copy Worksheets("Sheet1").Columns(3)
End Sub
と書きますが（質問のは冗長）エラーは出ません。
コピー元や先が
セル結合
セルの非表示
でも動きました。
ーー
Googleで「そのコマンドは複数の選択範囲に対して実行できません」と入れて照会すると沢山記事が出ます。それらのどれに該当するか考えてください。
http://oshiete1.goo.ne.jp/qa1720288.html　　など。
ーー
よければ、該当結果を報告してください。
ーー
しかしその場合と言うのは、上記のコードで表されるもので無いように思うが。