[[20170604221400]]　『特定範囲をクリアしたい』（パピコ）　ページの最後に飛ぶ

『特定範囲をクリアしたい』（パピコ）

 ------------------------------------------------------------ 
 Sub Clear()
     Dim sh1
     Set sh1 = Worksheets("シート1")
     sh1.Range("B4:I5000").Select
     sh1.Range(Selection, Selection.End(xlDown)).Select
     Selection.ClearContents
     sh1.Range("B2").Select
     ActiveWorkbook.Save
 End Sub
 ---------------------------------------------------------------

 特定の範囲を、クリアしたいだけなんですがどうしても動きません。
 ご教示願います。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

＞どうしても動きません。

どういう意味でしょうか。
エラーがでるということですか。

（マナ） 2017/06/04(日) 22:24

もう１点

＞特定範囲をクリアしたい

特定範囲とはどこでしょうか

（マナ） 2017/06/04(日) 22:26

＞Range("B4:I5000")
＞Selection.End(xlDown)

あまり見ない事なのですが、
・最初の設定したセル範囲より更に下にデータがある？
・複数列で指定して最終行を検索できる物なの？

（じゅんじゅん） 2017/06/05(月) 07:28

 基本はSelect、Selectionを使わずに

 Sh1.Range(選択範囲).ClearContents
 とでもすることだが、エラーの原因のほうは「シート1」がアクティブになっていないのではないか？
 セルをSelectする場合にはそのシートがアクティブになっていないとエラーになる。
（ねむねむ） 2017/06/05(月) 09:08

コメント返信：

[ 一覧(最新更新順) ]

[[20170604221400]] 『特定範囲をクリアしたい』（パピコ） ページの最後に飛ぶ

[[20170604221400]]　『特定範囲をクリアしたい』（パピコ）　ページの最後に飛ぶ