Excelで構造化されたテーブル（ListObject）を利用することで、データ管理がより効率的になります。
VBAを活用すれば、テーブル内のレコード数（行数）や列数（項目数）を簡単に取得することができます。
本記事では、ListRows.CountとListColumns.Countを使って、テーブルのサイズ情報を取得する方法をご紹介いたします。
想定される活用シーン
- データ件数が増減するたびにレコード数を確認したい。
- 列数に応じて処理対象を動的に変更したい。
- テーブルの構造を監視・検証したい（テンプレートの品質管理など）。
基本構文：テーブルのレコード数と列数を取得する
Sub GetTableRecordInfo()
Dim tbl As ListObject
Set tbl = ActiveCell.ListObject ' アクティブセルが含まれるテーブルを取得
' 結果をシートに出力
Range("E2").Value = "レコード数"
Range("F2").Value = tbl.ListRows.Count
Range("E3").Value = "列数"
Range("F3").Value = tbl.ListColumns.Count
End Sub
.ListObjectとは？
.ListObjectは、指定したセルが属するテーブル（ListObject）を取得するためのプロパティです。
アクティブセルがテーブルの中にある場合、そのテーブル全体を自動的に取得できます。
.ListRows.Countと.ListColumns.Countの意味
| プロパティ | 説明 |
|---|---|
.ListRows.Count | テーブルの「データ行数」（見出し行は含まれません） |
.ListColumns.Count | テーブルの「列数」（項目の数） |
応用：複数テーブルの情報を一括取得
Sub GetAllTableInfo()
Dim tbl As ListObject
Dim i As Integer: i = 2
For Each tbl In ActiveSheet.ListObjects
Cells(i, 1).Value = tbl.Name
Cells(i, 2).Value = tbl.ListRows.Count
Cells(i, 3).Value = tbl.ListColumns.Count
i = i + 1
Next
End Sub
まとめ
テーブルのレコード数や列数をVBAで取得することで、データの構造をプログラム的に把握し、動的な処理に活用できます。
帳票処理やデータベース風の管理を行う上でも非常に有用な機能です。
特に、ユーザーが頻繁にデータを追加・削除する環境では、処理の正確性や自動化の安定性を高めるために必須とも言えるテクニックです。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
