電子書籍ギフト♪ 最大10,000円が当たる!

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

教えて!goo グレード

A 回答 (1件)

こんばんは!



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
    • good
    • 3
この回答へのお礼

tom04さん

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング