マクロで変数を使用して複数列を削除

エクセル２０１３です

Range("B:C").Delete ' 列「B ～ C」を削除
Range(Columns(2), Columns(3)).Delete ' 列「B ～ C」を削除
Range("D:D").Delete ' 列「D」を削除

ですが

で変数を使って

Range(Columns(17), f).Delete

ですと動作しません。

ウォッチで見るとfには21がセットされています。

17列目から21列目までの5列が列削除される予定です。

どうもRangeとCellsで片方が変数の場合記述がわかりません。

よろしくお願いします。

No.2 ベストアンサー 回答者： eden3616 回答日時： 2014/07/24 19:21

ウォッチで見るとfには21がセットされています。

Range(Columns(17), 21).Delete

で動作しないものはどうにもならないでしょう。
そういう仕様なんですから。

Range(Columns(17), Columns(21)).Delete

で動作することはわかりますよね？

Range(Columns(17), Columns(ｆ)).Delete

としましょう。

この回答へのお礼

変数はかこってはいけない
と思っていました。
ありがとうごじました。

お礼日時：2014/07/24 21:35

No.1 回答者： tom04 回答日時： 2014/07/24 19:19

こんばんは！

＞変数を使って
＞Range(Columns(17), f).Delete
＞ですと動作しません。
と
＞ウォッチで見るとfには21がセットされています。
＞17列目から21列目までの5列が列削除される予定です。
を考慮して、単純に

Sub Sample1()
Dim f As Long
f = 21
Range(Columns(17), Columns(f)).Delete
End Sub

みたいな感じではダメですか？m(_ _)m

この回答へのお礼

教えていただいた内容で
思っていたように動作しました。
処理の都度、変数fは変化しますが
きちんと動作しています。
ありがとうございました。

お礼日時：2014/07/24 21:37