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

質問

マクロ 最終列をコピーして最終列の次の列に挿入する方法
マクロで最終列をコピーして、最終列の次の列に挿入する方法に苦戦しております。
(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 · ベストアンサー

こんばんは！

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さん

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