EXCELマクロデータのある行より下の行削除の構文

質問

EXCELマクロ構文について教えてください。
データのある行のひとつ下の行全体選択し、
Ctrl+Shift＋↓で下部行全て選択し、右クリックで削除する　操作をマクロにしたいのでですが、
マクロ記録では上の操作は
Rows("189:189").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlU　　になります。

この　189　という数字は　下記の変数定義で「lastRow」として取得できるのですが
Dim lastRow As Long
lastRow = Sheets("2CVS関西").Cells(Rows.Count, 2).End(xlUp).Row + 1

189にlastRow　に置き換える方法お教えください。

回答No.1

kkkkkm · ベストアンサー

Rows("189:189").Select
の189をlastRowにしたいということでしたら
Rows(lastRow).Select
でいけると思います。

お礼

シンプルなコードで解決しました。

Powered by GRATICA

回答No.2

NuboChan

> Selection.Delete Shift:=xlU

違ってます。
　xlU －－－→ xlUp

以下の様なことでしょうか　？

Sub test()
Rows("189:189").Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
End Sub

お礼

ありがとうございます。仰るとおり、コピペ間違いでした。

Powered by GRATICA