範囲を選択している際のマクロでは、Selection.Rowメソッドでは選択範囲の上の行の値を返しますが、
範囲の下の値を返すメソッドは何でしょう？
例えば3行目から7行目。
選択した範囲の行全体を削除したいです。
No.1
3454
969
35pt
選択範囲が１つの範囲ならば
Selection.Row + Selection.Rows.Count - 1
で下の行になります。複数の範囲だとまた違ってきます。
削除するには、
Sub test() Dim r1 As Long Dim r2 As Long r1 = Selection.Row r2 = r1 + Selection.Rows.Count - 1 ActiveSheet.Rows(r1 & ":" & r2).Delete End Sub
No.1
3454969
ここでベストアンサー
35pt
選択範囲が１つの範囲ならば
Selection.Row + Selection.Rows.Count - 1
で下の行になります。複数の範囲だとまた違ってきます。
削除するには、
Sub test() Dim r1 As Long Dim r2 As Long r1 = Selection.Row r2 = r1 + Selection.Rows.Count - 1 ActiveSheet.Rows(r1 & ":" & r2).Delete End Sub
どうもご丁寧にありがとうございます。
No.2
135391198
35pt
a = Selection.Address(False, False, xlA1)
a = Range(Right(a, Len(a) - InStr(a, ":"))).Row
これで 下の行が aに入ります。
別のやり方もあるのですね。
きゃづみぃ
2008/11/08 00:08:25
183
178
ReoReo7
1
1
どうもご丁寧にありがとうございます。