－ちょっと使えるネタを紹介－
Excel VBAでRangeで取得したセル範囲から、行、列、行数、列数などを、取得する方法についてご紹介します。Rangeと、Row、Column、Countを組み合わせれば、取得することができます。Rangeは実務でよく使いますので、値を取得する方法についてマスターしていきましょう。
この記事では、Rangeで取得したセル範囲から、行数や行番号、値、行の値などを、取得する方法についてご紹介します。
Rangeは実務でよく使われますので、その範囲から自由自在に、値を取得する方法をマスタしましょう。
では、ご紹介していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
最初にポイントとなるVBAコードを記載しておきます。
VBAコードだけ確認したい場合に、ご活用ください。
'行数と列数 With ActiveSheet.Range("B3:E7") Debug.Print .Rows.Count '行数 Debug.Print .Columns.Count '列数 End With '行番号と列番号 With ActiveSheet.Range("B3:E7") Debug.Print .Row '最初の行番号 Debug.Print .Rows(.Rows.Count).Row '最後の行番号 Debug.Print .Column '最初の列番号 Debug.Print .Columns(.Columns.Count).Column '最後の列番号 End With '値 With ActiveSheet.Range("B3:E7") .Cells(1, 1).Select '左上の値 .Cells(1, .Columns.Count).Select '右上の値 .Cells(.Rows.Count, 1).Select '左下の値 .Cells(.Rows.Count, .Columns.Count).Select '右下の値 .Cells(.Count).Select '右下の値 End With '行と列 With ActiveSheet.Range("B3:E7") .Rows(1).Select '最初の行 .Rows(.Rows.Count).Select '最後の行 .Columns(1).Select '最初の列 .Columns(a.Columns.Count).Select '最後の列 End With
では、解説していきます。
Ragneで取得したセル範囲の、行数や列数を取得するVBAコードをご説明します。
まず、Rangeで取得したセル範囲から、行数と列数を取得する方法です。
次のように取得します。
では、取得してみます。
Rangeで取得したセル範囲から、行数と列数を取得してみます。
Rangeで取得したセル範囲の、行数を取得するVBAコードです。
Sub TEST1()
'行数
Debug.Print ActiveSheet.Range("B3:E7").Rows.Count
End Sub
実行してみます。
結果は、『5』行となります。
Rangeで取得したセル範囲の、列数を取得するVBAコードです。
Sub TEST2()
'列数
Debug.Print ActiveSheet.Range("B3:E7").Columns.Count
End Sub
実行してみます。
結果は、『4』列となります。
次に、Rangeで取得したセル範囲から、行番号と列番号を取得する方法です。
Rangeで取得したセル範囲から、行番号と列番号を取得するイメージです。
Rangeで取得したセル範囲から、最初と最後の行番号を取得するイメージです。
次のように取得します。
Rangeで取得したセル範囲から、最初と最後の列番号を取得する方法です。
次のように取得します。
という感じです。
最終行と最終列の番号が、結構ややこしいですね。
では、実際に、行番号と列番号を取得してみます。
Rangeで取得したセル範囲で、最初の行番号を取得するVBAコードです。
Sub TEST3()
'最初の行番号
Debug.Print ActiveSheet.Range("B3:E7").Row
End Sub
実行してみます。
結果は、『3』行目となります。
Rangeで取得したセル範囲で、最後行の番号を取得するVBAコードです。
Sub TEST4()
'最後の行番号
With ActiveSheet.Range("B3:E7")
Debug.Print .Rows(.Rows.Count).Row
End With
End Sub
実行してみます。
結果は、『7』行目となります。
Rangeで取得したセル範囲で、最初の列番号を取得するVBAコードです。
Sub TEST5()
'最初の列番号
Debug.Print ActiveSheet.Range("B3:E7").Column
End Sub
実行してみます。
結果は、『2』列目となります。
Rangeで取得したセル範囲で、最終列の番号を取得するVBAコードです。
Sub TEST6()
'最後の列番号
With ActiveSheet.Range("B3:E7")
Debug.Print .Columns(.Columns.Count).Column
End With
End Sub
実行してみます。
結果は、『5』列目となります。
次は、取得したRangeの値を取得する方法です。
Rangeで取得したセル範囲から、セルの値を取得する方法です。
次のように取得します。
では、Rangeの値を取得してみます。
Rangeで取得した範囲の左上、右下、右上、左下を取得してみます。
ここでは、わかりやすく取得した範囲のセルを選択します。
Rangeの左上を選択するVBAコードです。
変数に入力すれば、値を取得することができます。
Sub TEST7()
'左上の値
ActiveSheet.Range("B3:E7").Cells(1, 1).Select
End Sub
実行してみます。
左上を選択できました。
Rangeの右上を選択するVBAコードです。
変数に入力すれば、値を取得することができます。
Sub TEST8()
'右上の値
With ActiveSheet.Range("B3:E7")
.Cells(1, .Columns.Count).Select
End With
End Sub
実行してみます。
右上を選択できました。
Rangeの左下を選択するVBAコードです。
変数に入力すれば、値を取得することができます。
Sub TEST9()
'左下の値
With ActiveSheet.Range("B3:E7")
.Cells(.Rows.Count, 1).Select
End With
End Sub
実行してみます。
左下を選択できました。
Rangeの右下を選択するVBAコードです。
変数に入力すれば、値を取得することができます。
Sub TEST10()
'右下の値
With ActiveSheet.Range("B3:E7")
.Cells(.Rows.Count, .Columns.Count).Select
End With
End Sub
短縮して、次のようにしても右下を取得できます
Sub TEST11()
'右下の値
With ActiveSheet.Range("B3:E7")
.Cells(.Count).Select
End With
End Sub
実行してみます。
右下を選択できました。
こんな感じで、Rangeの値を取得することができます。
次は、Rangeで取得したセル範囲の、行や列を取得する方法です。
Rangeで取得したセル範囲の、行や列を取得する方法です。
行を取得するには、
のように入力します。
列を取得するには、
という感じで、取得できます。
では、実際に、VBAコードを作成して実行してみます。
Rangeで取得したセル範囲の、行や列を取得するVBAコードを実行してみます。
わかりやすくするため、セルを選択する方法を紹介します。
Rangeで取得したセル範囲の、最初の行を選択する方法です。
取得したセル範囲を、変数に代入すれば、値を取得することができます。
Sub TEST12()
'最初の行
ActiveSheet.Range("B3:E7").Rows(1).Select
End Sub
実行してみます。
最初の行を選択することができました。
Rangeで取得したセル範囲の、最後の行を選択する方法です。
取得したセル範囲を、変数に代入すれば、値を取得することができます。
Sub TEST13()
'最後の行
With ActiveSheet.Range("B3:E7")
.Rows(.Rows.Count).Select
End With
End Sub
実行してみます。
最後の行を選択することができました。
Rangeで取得したセル範囲の、最初の列を選択する方法です。
取得したセル範囲を、変数に代入すれば、値を取得することができます。
Sub TEST14()
'最初の列
ActiveSheet.Range("B3:E7").Columns(1).Select
End Sub
実行してみます。
最初の列を選択することができました。
Rangeで取得したセル範囲の、最後の列を選択する方法です。
取得したセル範囲を、変数に代入すれば、値を取得することができます。
Sub TEST15()
'最後の列
With ActiveSheet.Range("B3:E7")
.Columns(.Columns.Count).Select
End With
End Sub
実行してみます。
最後の列を選択することができました。
この記事では、Rangeで取得したセル範囲から、各値を取得する方法についてご紹介しました。
Rangeでよく使われるのは、
この辺りです。
多いです。でも、これらの値を取得する方法を知っておけば、実務で簡単に、Rangeを使いこなすことができます。
一つずつ、実行してみて、慣れていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する