B01.処理範囲の行列数を取得する

EXCELマクロでデータを処理するには処理するセルの位置を指定することが必要です。

そこで、以下のマクロにより、処理する表の行列数を取得します。

'変数を宣言

Dim SHEETNAME01 As String

Dim NY1 As Long, NX1 As Integer

'シート名称設定

SHEETNAME01 = "対象公報"

'

'処理範囲の行列数を取得

Sheets(SHEETNAME01).Select

Cells(1, 1).Select

ActiveCell.CurrentRegion.Select

NY1 = Selection.Rows.Count

NX1 = Selection.Columns.Count

これにより "対象公報"の行数をNY1、列数をNX1に読み込むことができます。