エクセルのマクロ

質問

同一列上に連続する複数のセルが選択状態にある時、一番下のセルのデータのみ残して他のセルのデータは消去するマクロとして以下を実行すると、全てのセルのデータが消去されてしまいます。どこを直せばいいでしょうか？

Sub test()

Dim myRange
For Each myRange In Selection.Areas
If myRange.Rows.count > 1 Then
myRange.Resize(, myRange.Rows.count - 1).ClearContents
End If
Next

End Sub

回答No.1

hana-hana3 · ベストアンサー

myRange.Resize(, myRange.Rows.count - 1).Select

として実行すると、どの範囲がクリアされるか解るかと思います。

myRange.Resize(myRange.Rows.count - 1).ClearContents
のように修正してみてください。

お礼

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

回答No.3

merlionXX

Sub test()
If Selection.Rows.Count > 1 Then
Selection.Resize(Selection.Rows.Count - 1).ClearContents
End If
End Sub

お礼

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

回答No.2

uc078

とりあえず、

myRange.Resize(, myRange.Rows.count - 1).ClearContents
　　　　　　　　　　↑ ここにある先頭のカンマ、消してみてください

私はそれで、消えています

↓こんな感じです
myRange.Resize(myRange.Rows.count - 1).ClearContents

お礼

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