複数選択(離れたセル)の行数を数える マクロ エクセル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

 

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

おやすみなさい

  • このエントリーをはてなブックマークに追加

SNSでもご購読できます。

コメントを残す

*