[ExcelVBA]ドラッグした範囲の一番下の行番号を取得したい

質問

現在、ＥｘｃｅｌＶＢＡを職場で活用しようと学習中です。

いま、ドラッグした範囲に格子状に罫線を引き、ドラッグした範囲の
一番下の行の上側だけ２重線にしたいのです。
格子状に罫線を引くところまでは良いのですが、最後の行を仕切る２重線を
引く位置が問題です。
ドラッグする範囲は列数も行数も毎回変わるので二重線を引く行を
どのように指定すべきなのか困っています。
Selectionのプロパティにはそれらしいものが見当たりませんでした。
selectionの最終行の行番号をどのように取得したらよいでしょうか。

どなたか御存知の方がおられましたら、アドバイスお願いします。
環境は、Excel2000　＆　WinMe　です。
宜しくお願いします。

回答No.2

ham_kamo · ベストアンサー

Selection.Row + Selection.Rows.Count - 1
かな。もっと簡単な書き方があるかも。

ただ、選択範囲の最終行の上側だけ２重線にしたいのであれば、行番号を取得しなくても、

With Selection
　.Rows(.Rows.Count).Borders(xlEdgeTop).LineStyle = xlDouble
End With

でできるかと思います。

お礼

なるほど。これはスマートなやり方ですね。
サンプル付きで大変参考になります。
おかげさまで解決しました。
ありがとうございました。

回答No.1

zap35

とりあえず、
　Selection.Rows + Selection.Rows.cout - 1
で選択範囲の最終行番号を取得できます

お礼

素早い回答感謝いたします。
RowsにCountプロパティがあったとは…。
見落としていました。助かりました。
ありがとうございました。