EXCELVBAで、罫線がある表の最終行がうまく取れないときがある

Question

（質問が２点あります）

今度ExcelVBAのエキスパート資格を取ろうかと考えてExcelVBAの勉強をしている最中です。

そこで今回、表の最終行を取得するコードを書いているのですが、
最終行を取得するには色々な方法があることを知りました。

特に

1. ：表の中に空白がある場合
2. ：罫線が引いてある表の場合

この２点は注意が必要だということも分かりました。

そして今回お聞きしたいのは、２についてです。

２について、表に罫線が引いてあると、以下のコードを使っても最終行を取得できないことがあります。

[質問１]---------

例えば、以下の図だと

列３番目のところで最終行の結果は７となるようにしたいのですが、

Cells(3, Columns.Count).End(xlToLeft).Column

このコードだと、結果は「４」です。

ですが、

Range("C65536").End(xlUp).Row

このコードだと、結果はちゃんと「７」が返ってきます。

ここで、Cellsの場合だとなぜ結果が「４」となり正しく返ってこないのかが分かりません。

ちなみに全体のコードは

Option Explicit

Sub test()

Const stroutput_FName As String = "練習.xlsb"
Const stroutput_SheetName As String = "テスト"

Dim wboutput As Workbook                'アウトプットファイル格納
Dim wboutput_Sheet As Worksheet         'アウトプットファイルのシート
Dim endcol As String

    'アウトプットファイルのファイルパスを取得
    Workbooks.Open ThisWorkbook.Path & "\" & stroutput_FName
    Set wboutput = ActiveWorkbook
    Set wboutput_Sheet = ActiveWorkbook.Worksheets(stroutput_SheetName)
    
    '最終行をチェック
'    endcol = wboutput_Sheet.Range("A1").End(xlDown).Row
    
    endcol = Cells(1, Columns.Count).End(xlToLeft).Column
    endcol = Cells(2, Columns.Count).End(xlToLeft).Column
    endcol = Cells(3, Columns.Count).End(xlToLeft).Column
    endcol = Cells(4, Columns.Count).End(xlToLeft).Column
    
    endcol = Range("A65536").End(xlUp).Row
    endcol = Range("B65536").End(xlUp).Row
    endcol = Range("C65536").End(xlUp).Row
    endcol = Range("D65536").End(xlUp).Row
                
End Sub

です。
（テストなのでステップインで１行ずつテストをして確かめています）
どこかが間違っているのでしょうか？

（なお、Celssで取得している行で最初の１行以外全て間違った結果が返ってきています）

[質問２]------

今回、Range("C65536").End(xlUp).Row　というコードでうまく取得できることが
分かりました。
しかし、６５５３６と直接入れて今は動かせていても、
今後例えばExcelのバージョンが変わった時にExcelの最終行が変わったりすることも
あるかもしれませんし、または例えば業務で大量のデータを扱う時などは
もしかしたら６５５３６行以上のデータが入ることだってあるかもしれませんし・・・

なので、これでいいのかな？と思っています。

何か良い置き換えというか、そういうコードはありますでしょうか？

以上よろしくお願いいたします。

Comments

[torisan]

他の方からも指摘がありますが、結果は７で良いのでしょうか？
罫線を生かすなら、１０となりそうですが。

[退会済みユーザー]

お返事が遅くなり申し訳ありません。
結果は７で良いです。
ありがとうございます。

Answer 1

Cells(3, Columns.Count).End(xlToLeft).Column

このコードは、3行目の一番右の列番号を取得しようとしています。
結果として「しょうゆ」が入っている4列目になりますので「4」が返ってきています。

Columns.Countは、そのExcelのバージョンで扱える最大の列番号を取得すると考えて良いでしょう。
End(xlToLeft)で最大の列番号から左方向に見ていき、何らかのデータが入っているセルを探します。
最後のColumnメソッドで「しょうゆ」が入っている行番号を返しています。

Range("C65536").End(xlUp).Row

このコードは、C列の一番下の行番号を取得しようとしています。
結果として「モモ」が入っている7行目になりますので「7」が返ってきています。
先のColmnsメソッドが列番号を返すのに対して、Rowメソッドは行番号を返します。

Cells(Rows.Count, 1).End(xlUp).Row

定型文としては、上記のコードで最終行を取得します。
A列の場合は1、B列の場合は2と書き換えると良いでしょう。

Answer 2

Range("C65536").End(xlUp).Row　というコード

ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
1は列番号

このコードだと、結果は「４」です。

RowじゃなくてColumnを取っているようですが

あと罫線は関係ない　と　お　も　う