小さなデータテーブルの場合、カラムの数は簡単に数えられます。 しかし、大きなデータテーブルの場合、すべてのカラムをミスなく数えるのはかなり困難です。 さらに、あるカラムにはデータが含まれていますが、あるカラムは完全に空白です。 このように、大きなデータテーブルの場合、データのあるカラムを数えるのはかなり困難です。 この記事では、2通りの数え方について説明します。ExcelのVBAを使用して、簡単にデータを持つ列を作成することができます。

練習用ワークブックをダウンロードする

以下のリンクからExcelファイルをダウンロードし、それに沿って練習することができます。

データで列を数える.xlsm

ExcelのVBAを使用してデータ付きの列を数える2つの方法

1.簡単なVBAコードで、データのあるワークシートの全列をカウントする

次のデータ表では、3つの列が確認できます。 では、VBAコードを使用して、1つのExcelワークシートの使用列数を決定します。

まず、❶を押します。 ALT + F11 をクリックすると、VBAエディタが起動します。

から新しいモジュールを作成します。 Insert> Module.

その後、以下のVBAスクリプトをコピーしてください。

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "The number of columns with Data is: " & .Columns.Count End With End Sub 

❹その後、VBAエディタに戻り CTRL + V をクリックして貼り付けます。

VBAのコードを保存するために CTRL + S ボタンをクリックします。

❺ VBA コードを実行するには デベロッパー タブをクリックし マクロ を押すだけです。 F5 キーになります。

があります。 マクロ のダイアログボックスが表示されます。

❷ 必要なのは、"Select "をクリックすることです。 実行 ボタンをクリックします。

ダイアログボックスが表示され、データのある列の数が3であることがわかります。

続きを読む エクセルで列の数を数える方法（3つの簡単な方法）

2.エクセルVBAのコードを使用して、データのある範囲内のすべての列を数える

次のVBAコードは、指定された範囲内のデータを持つすべての列を数えることができるようになります。

コードを使用するには

まず、❶ VBAエディタを起動します。 ALT + F11。

❷次に進みます。 挿入モジュール をクリックすると、新しいモジュールが作成されます。

その後、以下のVBAスクリプトをコピーしてください。

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "総列数: " & xRng.Range("B5:D5").Columns.Count End Sub 

VBAエディタに戻り、❹を押します。 CTRL + V をクリックして貼り付けます。

❺ 次に、コードを保存するために CTRL + S。

❺に進みます。 デベロッパー タブをクリックし マクロ を開いてください。 マクロ ウィンドウに表示されます。

または、単純に F5 キーで使用できます。 マクロ のダイアログボックスが表示されます。

ダイアログボックスから、機能名を選択します。 CountColumnsInARange を打ち込みます。 実行 ボタンをクリックします。

最後に、列の合計数が3であることを示す小さなダイアログボックスが表示されます。

続きを読む エクセルでVLOOKUPの列数を数える方法（2通り）

Excelで列を数えるためのその他のVBAコード

1.VBAのRange.Endメソッドで最後に使用した列番号を返す

Excelのスプレッドシートで最後に使用された列番号を取得する。

まず、❶ VBAエディタを起動します。 ALT + F11。

❷次に進みます。 挿入モジュール をクリックすると、新しいモジュールが作成されます。

❸ 以下をコピーする ブイビーエー のコードで表示されます。

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

VBAエディタにコードを貼り付けて保存する ❹ VBAエディタにコードを貼り付けて保存する

を押す ❺。 F5 キーを押して、上記のコードを実行します。

下図のようなポップアップダイアログボックスで、最後の列番号を取得します。

続きを読む Excelで値が到達するまで列をカウントする方法

2.Excelで最後に使用した列の番号を返すにはRange.Findメソッドを使用する

最後に使用された列番号を返すVBAコードをお探しの場合は、以下の手順を実行してください。

まず、❶を押します。 ALT + F11 をクリックすると、VBAエディタが起動します。

から新しいモジュールを作成します。 Insert> Module.

❸ 以下の VBA コードをコピーします。

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Number: " & xRng End Sub 

❹その後、VBAエディタに戻り CTRL + V をクリックして貼り付けます。

VBAのコードを保存するために CTRL + S ボタンをクリックします。

ここで F5 キーを押して、上記のコードを実行します。

下図のように、最後に使用した列の番号がポップアップダイアログボックスで表示されます。

覚えておきたいこと

• プレス ALT + F11 をクリックすると、VBAエディタが起動します。
• を押すことができます。 ALT + F8 を利用することができます。 マクロ ダイアログボックスが表示されます。
• VBAコードを実行するには F5.

結論

最後に、ExcelのVBAを使用してデータ列をカウントする2つの方法を説明しました。 この記事と一緒に添付された練習用ワークブックをダウンロードして、すべての方法を練習することをお勧めします。 また、以下のコメント欄で質問をすることを躊躇しないでください。 我々はできるだけ早くすべての関連の問い合わせに応答するようにします。 また、当社のウェブサイトをご覧ください。 エクセルウィキ をクリックすると、さらに詳しくご覧になれます。