複数選択（離れたセル）の行数を数える　マクロ　エクセルVBA

複数選択された（離れたセル）を選択をした場合の行の数えるマクロ

ユーザーフォーム作ってたら必要なマクロになったので考えてみました。

連続していない、離れたセルの行は”Rows.count”では数えられないんですね(*_*)

てなわけで使うのは”selection.areas”  Areasプロパティです。

Sub Areas()

Dim Hani As Range

Dim Rcount As Integer

Set Hani = Range(selection.address)

For Each kazu In Hani
Rcount = Rcount + Selection.Areas.Count
Next

Debug.Print Rcount

End Sub

やっと作りたいマクロが作れたよ～

おやすみなさい