Home » Excel VBA Rangeオブジェクト » Endプロパティ » 最終行番号を取得するRange("A1").End(xlDown).Rowでオーバーフロー

最終行番号を取得するRange("A1").End(xlDown).Rowでオーバーフロー

対象：Excel2010, Excel2013, Windows版Excel2016

最終行番号を取得するRange(

このサイト・インストラクターのネタ帳のアクセスログをチェックしていて、
「マクロ最終行取得 xldown オーバーフローしました」
という検索キーワードに気づきました。

［スポンサードリンク］

Range("A1").End(xlDown).Rowでオーバーフローするサンプルマクロ

以下のようなマクロを実行しようとしたのではないでしょうか。

Sub オーバーフローするサンプル()
　Dim end_row As Integer
　end_row = Range("A1").End(xlDown).Row
End Sub

1行目にしかデータが存在しないときに上記のSubプロシージャを実行すると、必ず
「実行時エラー '6' オーバーフローしました。」
というエラーが発生します。

これに対して、VBAのIntegerは「-32,768」から「32,767」の整数です。

最大でも「32,767」までしか代入できない変数に「1,048,576」や「65,536」といった数値を入力しようとしたので、オーバーフローします。

ですから変数の宣言を
　　Dim end_row As Integer
ではなく、
　　Dim end_row As Long
で宣言すれば、上記の理由によるオーバーフローエラーは発生しなくなります。

プログラミングでは、似たデータ型であれば、変数を小さいサイズの型で宣言するのが、原則です。

ですが、VBAはExcel 97の頃に現在の仕様がほぼ固まった、古い言語です。

最近のプログラミング言語の場合、Integerという名前のデータ型は4バイトの「-2,147,483,648 ～ 2,147,483,647」と定義されているケースが多いようですが、VBAのIntegerは2バイトの「-32,768 ～ 32,767」です。

整数タイプのサイズとしてはあまりに小さく、実行スピードでもLongより速いわけでもないので、私はIntegerを使うメリットはないと考えています。

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » Endプロパティ » 最終行番号を取得するRange("A1").End(xlDown).Rowでオーバーフロー

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Endプロパティ」の記事一覧