マクロ 最終列をコピーして最終列の次の列に挿入する

マクロ 最終列をコピーして最終列の次の列に挿入する方法
マクロで最終列をコピーして、最終列の次の列に挿入する方法に苦戦しております。
(1)のところでエラーが出てしまいます。

列をコピーして次の列に挿入した時に挿入した列のセルの値をクリアしたいと思っております。

アドバイスの程、よろしくお願い致します

Sub ADD_Column()
Dim lastColumn As Integer

lastColumn = Cells(3, Columns.Count).End(xlToLeft).Column
Range(lastColumn).Copy Range(lastColumn + 1) '(1)

End Sub

No.1 ベストアンサー 回答者： tom04 回答日時： 2012/07/13 22:18

こんばんは！

lastColumn を「整数型」で宣言していますので、
列番号での操作方法にしてみてはどうでしょうか？

Sub ADD_Column()
Dim lastColumn As Integer
lastColumn = Cells(3, Columns.Count).End(xlToLeft).Column
Columns(lastColumn).Copy Destination:=Columns(lastColumn + 1)
Columns(lastColumn).ClearContents
End Sub

こんな感じではどうでしょうか？m（_ _）m

この回答へのお礼

tom04さん

ご回答、ありがとうございます。
ご参考にさせて頂き、列番号で操作致しました。
本当にありがとうございました。

お礼日時：2012/07/17 09:53