データ入力済セルの最終行番号を取得する

エクセルVBAのプログラム作成で、入力データをその都度蓄積していく場合など、

既にデータの入っている最終セルの位置を調べたいという時が多くあります。

こんにちは、じゅんぱ店長（@junpa33）です。

セルの範囲選択の記事一覧

2022年6月4日Range VS Cells ！VBAで使えるのはどっち 2022年6月18日セルの範囲選択と設定は14のツールで対応する 2022年5月5日Rowsプロパティの働きと関連のメソッド 2022年6月8日Columnsプロパティの列指定で参照する 2022年6月11日EntireRowとRowプロパティの違い 2022年6月13日EntireColumnとColumnの使い方 2020年11月19日Offsetプロパティは指定範囲を移動させる 2022年6月5日Resizeプロパティでセル範囲をサイズ変更 2022年4月30日CurrentRegionは連続データをまとめて掴む 2022年6月6日UnionとRangeの一括選択の働きを比較 2022年4月28日SpecialCellsメソッドはセル検索し選択する 2022年5月30日UsedRangeプロパティの使い方のコツ 2022年6月15日Endプロパティで上下左右の最終セルを取得 2020年12月5日データ入力済セルの最終行番号を取得する

データ入力済セルの最終行番号を取得するVBAコード

どこまでの行と列のセルにデータが入っているかを調べる作業は、

エクセルVBAコードを作成する中で、何かのプロシージャーの組み立てのパーツとして

結構、必須的に必要になってくることが多いかと思います。

「どこまでの行番号にデータが入っているか？」

実際に作表されたエクセルシートなら　”実際に目で見れば”　簡単に判断できます。

それは、人の目で見た場合、データ行が途中で空白行として続いていたとしても　

人が見れば、”ファジー”　であっても自然と　”たぶんこうだろう”　と判断できるからです。

VBAコードでその判断を下そうとすると、そうは上手くいきません。

エクセルVBAには、そんな「ファジー・多分このような」を判断する機能なんて無いからです。

「データ記述の最終行を取得する」という、解説書やサイトの中によく出てくるのは、

このケースには「この方法」を、また、こういったケースには「この方法」を、なんて

対応コードの構文的な「この方法」が何種類も書かれていますが、

その都度、何種類かある中からバラバラと「今回はこれ」なんて使っていられません。また実務者にとっても実用的でもありません。

何故、何がこんなにも　”望む結果を導き出させない”　原因なのかというと、

ズバリそれは、取得対象列に含まれる「空白セル」です。

それがたとえ、「データとしての空白」であったとしてもです。

ですので実務上、

ということです。

解説としてはこのような順序で進めて行きます。

• 行数取得のキーワード　Rows.Count
• Endプロパティ
• 説明を進めるための例題を示します
• 入力行を上から下方向へ数えてどこまでか　xlDown
• 入力行を下から上方向へ数えてどこまでか　xlUp
• 空白行を削除してデータ番号を整理する方法

行数取得のキーワード　Rows.Count

Rows.Count　とは、「Rows」中学英語で習った複数形　Row（行）の全てということです。すべての行をCount（数えて）くださいということです。

答えは、エクセルバージョン2003なら「65536」、2007以降なら「1048576」になります。

最終行を取得する場合、この　Rows.Count　は重要です。

Endプロパティ

Endプロパティによって、指定したデータ入力のある範囲の終端セルを取得選択します。

上下左右4方向の指定が出来ます。

説明を進めるための例題を示します

この様な表を考えます。

表の開始行は4行目から、10行目と11行目が空白行となっています。

入力行を上から下方向へ数えてどこまでか　xlDown

上から下方向へ数える時に、数え始めのセルを「Cells(4,1)」または「Range(“A4”)」とします。

Sub 行数計算A()

Dim Arow As Long, Aval As Variant

Arow = Worksheets("Sheet1").Cells(4, 1).End(xlDown).Row
Aval = Worksheets("Sheet1").Cells(4, 2).End(xlDown).Value

Debug.Print "Arow " & Arow & vbCrLf & "Aval " & Aval

End Sub

入力行を下から上方向へ数えてどこまでか　xlUp

数え始めの開始セルは、「Cells(Rows.Count,1)」または「Range(“A” & Rows.Count)」となります。

Sub 行数計算B()

Dim Arow As Long, Aval As Variant

Arow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Aval = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Value

Debug.Print "Arow " & Arow & vbCrLf & "Aval " & Aval

End Sub

空白行を削除してデータ番号を整理する方法

この様に空白行やデータ番号の飛び番号を放置していては、バグの原因になりかねません。

そこで、この「End(xlDown)」と「End(xlUp)」を使って空白行を削除しておきます。

Sub 行数計算C()

Dim ArowD As Long, ArowU As Long
Dim i As Long, n As Long

ArowD = Worksheets("Sheet1").Cells(4, 1).End(xlDown).Row
ArowU = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

Debug.Print "ArowD " & ArowD & vbCrLf & "ArowU " & ArowU

    For i = 1 To ArowU

        If ArowD <> ArowU Then
            Rows(ArowD + 1).Delete
        End If

'行を削除したので、全体の行数が変化しました。再度数える必要があります。
        ArowD = Worksheets("Sheet1").Cells(4, 1).End(xlDown).Row

    Next i

 '最終行を再確認します。コード組み立て的には必要ありません。
        ArowU = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 
Debug.Print "ArowD " & ArowD & vbCrLf & "ArowU " & ArowU

    For n = 4 To ArowD
        Cells(n, 1).Value = n - 3
    Next n

End Sub

データ入力済セルの最終行番号を取得する方法　まとめ

最初にも言いましたが、他にも最終行を取得する方法はいくつかあります。

でも実際問題、普通に行うコード組み立てでは、覚えることも使うことも全然必須ではありません。逆に必要ないです。

それよりも、データの「空白行」を作らない。

出来てしまっても「削除修正」を行っておくことに心血を注いだ方がいいです。

ということで、ここでは、「上から下方向へ」と「下から上方向へ」を知っておいてください。

これで吉になります。

また改めて、入力セルの列方向の数え方は記事にしたいと思います。

エクセルVBAを最初から勉強するために

エラー対処はエクセルVBAでも大きな課題です。

そのためには、エクセルVBAの基本構造も十分知っておくことが必要です。

そんな基本部分から勉強するための記事を書いています。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

エクセルVBAを独習するのに参考書は欠かせません。 参考書選びは自分に合った「相棒」にできるものを選んでいきたいです。

エクセルVBAの独習でおすすめ参考書を7冊選ぶ。良書との出会いは大切です

エクセルVBAの独習には動画学習という方法もあります。 目と耳両方を使って学習することでさらに勉強効率を上げることもできると思います。

エクセルVBA初級者がUdemyで動画学習する講座おすすめ５選と無料講座の上手な使い方。

大村式【動画＆テキスト】Ｅｘｃｅｌマクロ＆ＶＢＡ最高のはじめ方

初めてのVBAの勉強、構えなくても気軽に始められる。

電子書籍版「大村式【動画＆テキスト】Ｅｘｃｅｌマクロ＆VBA最高のはじめ方」をamazonで見てみる

（著者）大村あつし
（出版社）技術評論社
（税込価格）1,628円（本体1,480円＋税）

学習書の新しい形です。
YouTubeと完全リンクした参考書です。入門と基礎を重点的に２２本の動画で解説をしています。
ちょっとした空き時間を利用してでもスマホがあれば学習ができます。
動画は優しい語り口調で、視聴者にある意味安心感を与えてくれます。動画は5分から20分間ぐらいで22本の構成です。
文章解説と動画解説の関係性は、動画解説が主で、文章解説がサポートいう使い方もできます。

大村式【動画＆テキスト】Ｅｘｃｅｌマクロ＆ＶＢＡ最高のはじめ方 /技術評論社/大村あつし

posted with カエレバ

楽天市場

Amazon

Yahooショッピング

7net

　セルの操作の記事一覧

セルの背景色を2クリックで他範囲にも展開できるマクロデータの並び替え VBA新旧のSortを実データで実証「セルの保護」の設定VBAを最速理解「グラデーションの塗りつぶし」のセルを設定する「塗りつぶしの網掛け」VBAを最速理解「塗りつぶし」背景色をVBAで記述する「罫線」のVBAを最速理解「フォント」の操作を最速理解する エクセルVBA「配置」を最速理解する エクセルVBA「表示形式」をVBAコード的に最速理解するセルの範囲選択と設定は14のツールで対応するEndプロパティで上下左右の最終セルを取得EntireColumnとColumnの使い方EntireRowとRowプロパティの違いColumnsプロパティの列指定で参照するUnionとRangeの一括選択の働きを比較Resizeプロパティでセル範囲をサイズ変更Range VS Cells ！VBAで使えるのはどっちUsedRangeプロパティの使い方のコツBordersの/位置/線種/太さ/色/と<外枠だけの罫線>の設置Rowsプロパティの働きと関連のメソッドセルの編集 DeleteとClearの使い分け 削除とクリアの違いCurrentRegionは連続データをまとめて掴むSpecialCellsメソッドはセル検索し選択するCharactersで文字列中の一部の文字を加工するFontプロパティで文字装飾操作をするエクセルVBA 同じ項目をまとめる（重複データの整理）コード作成Findメソッドでの検索の方法とコード組み立てのコツデータ入力済セルの最終行番号を取得するOffsetプロパティは指定範囲を移動させる

このサイトでよく使うVBAのコードのトピックを纏めています。

エクセルVBA最速理解で必要な知識を集めよう！

今回の記事はここまでです。   最後までご覧いただき有難うございました。