【エクセルVBA】指定 or 選択した領域の行数、列数を取得する方法

こんにちは、ヒガシです。

このページでは、VBA上で現在選択されている領域の行数、列数を取得する方法をご紹介していきます。

それではさっそくやっていきましょう！

領域の行数を取得する方法
領域の列数を取得する方法
サンプルプログラムの紹介
サンプルプログラムの実行結果
おわりに

領域の行数を取得する方法

VBA上で指定領域の行数を取得する方法は以下の通りです。

Range(*****).Rows.Count

*****のところには”A1:B2″みたいな領域を直接指定しても良いですし、現在選択している領域を指定したければSelection.AddressとすればOKです。

領域の列数を取得する方法

列数取得も基本的には先ほどの行数取得とほぼ同じです。

Range(*****).Columns.Count

これも先ほど同様に*****のところには”A1:B2″みたいな領域を直接指定しても良いですし、現在選択している領域を指定したければSelection.AddressとすればOKです。

サンプルプログラムの紹介

それでは先ほど紹介したスキルを織り込んだプログラムをご紹介します。

今回はエクセル上で選択している領域の行数、列数をメッセージボックスで知らせてくれるマクロです。

Sub check_region_row_column()
    '選択領域にする場合
    select_address = Selection.Address
    '指定領域にする場合
    'select_address = "A1:B2"
    r = Range(select_address).Rows.Count
    c = Range(select_address).Columns.Count
    MsgBox "選択領域の行数は" & r & "です" & vbCrLf & _
           "選択領域の列数は" & c & "です"
End Sub

もし選択領域ではなく、指定領域にしたい場合は５行目のselect_addressの方をアクティブにしておけばOKです。