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

質問

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

回答No.1

redfox63 · ベストアンサー

そのコピー元のA列の中に非表示の行がありませんか？
フィルターなどが掛かっていて ・・・

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

お礼

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

回答No.2

imogasi

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