複数のセルにあるデータを消去したい

Question

下のVBAで選択したＢ～Ｄ列の行以降にあるデータを消去したいと思っています。

どのようにしたらよいかをお教え下さい。

Sub 選択()

    Range("AT5").Select

    Selection.End(xlDown).Offset(1).Select

    Dim gyou As Long

    gyou = ActiveCell.Row

    Range("B" & gyou & ":" & "D" & gyou).Select

End Sub

Answer 1

>例えば、これでセレクトされたセルがＢ10･Ｃ10･Ｄ10だとして、次にＢ10～Ｂ40、Ｃ10～Ｃ40、Ｄ10～Ｄ40にあるデータを一括消去したいと思い、その最初の足掛かりとしてセレクトさせることが必要かなと考えたからです。

例示のコードの選択行の位置がどうしてデータ範囲の1つ下の行になるのかよくわかりませんが、Selectした範囲の下のデータをすべて削除したいということなら、Select行の下に以下の行を追加してください。

Range(Selection, Selection.End(xlDown)).ClearContents

Answer 2

ありがとうございました。

希望がかないました。

感謝します。

Answer 3

ご指導ありがとうございます。

先ず、ClearContents　の知識が得られました。

実は、Range("B" & gyou & ":" & "D" & gyou).Select　としたのは、

例えば、これでセレクトされたセルがＢ10･Ｃ10･Ｄ10だとして、次にＢ10～Ｂ40、Ｃ10～Ｃ40、Ｄ10～Ｄ40にあるデータを一括消去したいと思い、その最初の足掛かりとしてセレクトさせることが必要かなと考えたからです。

セレクトされたセルの行「以降にあるデータを消去したい」という表現がわかりにくくて申し訳ありませんでした。

よろしくご指導ください。

Answer 4

>Range("B" & gyou & ":" & "D" & gyou).Select

別にSelectなんかする必要ありません。いきなり

Range("B" & gyou & ":" & "D" & gyou).ClearContents

でOKです。