選択したセル範囲の行数と列数を数える

■　コード内を「Wクリック」で選択できます。

Sub サンプル2700()
<pre><code>Dim RowsCount As Long
Dim ColumnsCount As Long

Range("B2:D6").Select
RowsCount = Selection.Rows.Count
ColumnsCount = Selection.Columns.Count

MsgBox "行数 = " & RowsCount & vbCrLf & _
       "列数 = " & ColumnsCount</code></pre>
End Sub

RowsCountとColumnsCountは変数の宣言です。

Dim RowsCount As Long
Dim ColumnsCount As Long

Rows.Countプロパティで行数を取得して、変数RowsCountに値を入れます。

RowsCount = Selection.Rows.Count

Columns.Countプロパティで列数を取得して、変数ColumnsCountに値を入れます。

ColumnsCount = Selection.Columns.Count

「行数＝」のように文字列のときは、「ダブルクォーテーション」で囲みます。
数値などを接続するときは、「＆」で囲みます。

MsgBox "行数 = " & RowsCount & vbCrLf & _
"列数 = " & ColumnsCount