VBAマクロを使用してExcelワークシートの行を数える方法

コンテンツ

• 説明書
• マクロのスケジュール
• マクロを実行する
• どうやって

式やVBAマクロを作成できるように、Excelスプレッドシートで使用されている行数を知る必要がある場合もあります。幸い、これを行うにはかなり簡単な方法がいくつかあり、Excel VBAもそのうちの1つです。この情報を見つける最も簡単な方法は、ワークシートの一番下に行き、最後のデータポイントの右側にある番号を調べることです。ただし、VBAでは、この計算は非常に簡単です。

説明書

VBAでは、Excelワークシートの行数を計算するのは非常に簡単です。 （BananaStock / BananaStock / Getty Images）

マクロのスケジュール

1. 「Alt + F11」を押して、ExcelワークシートとVBAエディタを開きます。

2. 右側のメニューに表示されているブックを右クリックして[新規]を選択し、新しいVBAプロジェクトファイルを開始します。

3. 「Sub CountRows（）」と入力して新しい関数を起動します。これは、プロジェクトファイル用の新しいサブルーチンがあることをVBAコンパイラに伝えます。サブルーチンの名前を変更したい場合は、テキスト「CountRows」を任意の名前に変更してください。その後に、上記のように括弧を続けてください（例：YourName（））。

4. 次の行に "Dim Count as Long"というテキストを含む変数を作成します。

5. 次のコードを入力してください。

   Count = 0 Count = Count + 1 ActiveCell.Offset（1、0）。IsEmptyまでのループを選択（ActiveCell.Offset（0、1））

   これにより、Count変数を解析してからワークシート全体の行数を数える必要があることがコンパイラプログラムに通知されます。コードはTotal Countに変数を追加し、それが空である限り次のセルに移動します。空のセルに達すると、実行は停止します。

6. テキスト "MsgBox Count"を含む新しい行を追加してテキストボックスをアクティブにします。これにより、合計行数を示すポップアップボックスが表示されます。ボックスをもう少し便利にするために、追加のテキストを入力できます。行の名前を次のように変更します。

   
   

   MsgBox "" [count number] "lines"があります

   必要に応じて引用符内のテキストを変更できます。

7. 最後に、新しい行に「End Sub」と入力してサブルーチン関数を終了します。

マクロを実行する

1. Excelワークシートに戻って保存します。

2. 最大数のデータを含む最初の列セルを強調表示します。この列には、上から下に空のセルを入れないでください。

3. [ツール]メニューを開き、[マクロ]を選択して、ワークシート用にプログラムされたすべてのマクロを含むダイアログボックスを表示します。

4. セクション1で作成した "CountRows"などの名前のマクロを選択し、[実行]をクリックします。それが終了すると、マクロはあなたに塗りつぶされた行数を知らせるポップアップテキストボックスを表示します。

どうやって

• 数値を取得するだけの場合は、式を使用して行を数えることがより簡単で簡単な方法です。空白のセルに「= COUNT（A：A、IF（A> 0,1,0））」と入力します。Aは行数を数える列です。