エクセル データのある最終列～最終列から数えて４つ目までの列を削除する

質問

エクセル　データのある最終列～最終列から数えて４つ目までの列を削除するマクロ

ネットで調べましたところActiveSheet.UsedRange.Columns.SelectでA～最終列までは選択できました。

これをタイトルの様に４列目までを選択し削除するにはどうすればよろしいのでしょうか？

どなたかご教授の方よろしくお願い致します。

使用環境：Windows7x64 エクセル 2007

回答No.3

myRange · ベストアンサー

似たようなものですが。。。
（確認のためDeleteではなくSelect）

With ActiveSheet.UsedRange
　　.Columns(.Columns.Count - 3).Resize(, 4).Select
End With

説明は不要とは思いますが。。。
例えば、選択範囲がＡ～Ｊ列（１～１０列）だったとすると

.Columns.Count = １０
.Columns(.Columns.Count - 3) = .Columns(7) = ７列目
.Resize(,4) = ７列目から４列分サイズを拡げる（７～１０列目となる）

以上です。

お礼

ご回答有り難うございます！

上記のマクロで間違いなく作動致しました！

今回はこちらをご利用させて頂きたいと思います！

有り難うございました！

回答No.2

KURUMITO

例えば次のようなことでもよいでしょう。

ActiveSheet.UsedRange.Select
n = Selection.Columns.Count
Range(Cells(1, n - 3), Cells(1, n)).EntireColumn.Delete

お礼

ご回答有り難うございます！

上記マクロで問題なく削除できました。

今回は１つのマクロで多数の変数使用しているため、
変数を作りたくありませんでしたが、
とてもわかりやすいマクロで勉強になりました！

有り難うございました！

回答No.1

nattocurry

With ActiveSheet.UsedRange.Columns
.Resize(, 4).Offset(, .Count - 4 + 1).Delete
End With

お礼

ご回答有り難うございます！

お教え頂いたマクロでは最終行を含み左３つしか削除できませんでした。

数字を変更すれば問題御座いませんでした。

この度は有り難うございました！