Word VBAでテーブルの行数を数える方法【初心者向け解説】

2025.06.222026.01.27

Wordの文書内にあるテーブルの行数を数えたいとき、VBA（Visual Basic for Applications）を使うと便利です。特に、パソコンやスマホの操作に不安がある方でも、わかりやすく解説しますので、ぜひ最後までご覧ください。

Word VBAでテーブルの行数を数える基本の方法
エラーを防ぐための工夫
特定の列にデータがある行だけを数える方法
よくある質問や疑問
まとめ

Word VBAでテーブルの行数を数える基本の方法

Wordのイメージ

まず、最も基本的な方法をご紹介します。WordのVBAでは、テーブルの行数を数えるには、以下のように記述します。

Sub CountTableRows()

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1) ' 1番目のテーブルを指定

    MsgBox "行数: " & tbl.Rows.Count

End Sub

このコードは、現在開いている文書の1番目のテーブルの行数をメッセージボックスで表示します。テーブルが複数ある場合は、`Tables(1)`の部分を`Tables(2)`、`Tables(3)`と変更することで、他のテーブルの行数も取得できます。

エラーを防ぐための工夫

初心者の方がよくつまずくのが、テーブルが存在しない場合のエラーです。これを防ぐためには、以下のように記述します。

Sub SafeCountTableRows()

    On Error Resume Next

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    On Error GoTo 0

    If Not tbl Is Nothing Then

        MsgBox "行数: " & tbl.Rows.Count

    Else

        MsgBox "テーブルが存在しません。"

    End If

End Sub

このコードでは、テーブルが存在しない場合でもエラーが発生せず、「テーブルが存在しません。」というメッセージが表示されます。

特定の列にデータがある行だけを数える方法

テーブルの中で、特定の列にデータが入力されている行だけを数えたい場合、以下のように記述します。

Sub CountRowsWithDataInColumn()

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    Dim count As Integer

    count = 0

    Dim i As Integer

    For i = 1 To tbl.Rows.Count

        If Len(Trim(tbl.Cell(i, 1).Range.Text)) > 0 Then

            count = count + 1

        End If

    Next i

    MsgBox "データがある行数: " & count

End Sub

このコードでは、1列目にデータが入力されている行の数をカウントします。`Cell(i, 1)`の部分を変更することで、他の列を対象にすることもできます。

よくある質問や疑問

Q1: テーブルが複数ある場合、すべてのテーブルの行数を数えるにはどうすればよいですか？

以下のように記述することで、すべてのテーブルの行数を順番に表示できます。

Sub CountAllTableRows()

    Dim tbl As Table

    Dim i As Integer

    For i = 1 To ActiveDocument.Tables.Count

        Set tbl = ActiveDocument.Tables(i)

        MsgBox "テーブル " & i & " の行数: " & tbl.Rows.Count

    Next i

End Sub