VBA テーブル（ListObjects）データの有無判定

テーブルにデータが無いとき、つまり見出しのみの状況で、データを追加した場合、下図のようにテーブルがおかしくなります。それを防ぐため、データ追加する前に、テーブルは空っぽかを判断することが必要になります。

テーブル（ListObjects）データの有無判定

Sub test()
   ’　データの有無判定

    If Range("A2").ListObject.DataBodyRange Is Nothing Then
        Debug.Print "テーブルにデータがないです"
    Else
        Debug.Print "テーブルにデータがあります。"
    End If

End Sub

この場合、データがないことを判明した場合、まず、テーブルを解除してから、データを追加します。そこから、再びテーブルの設定をしておけば、綺麗なテーブルを作成できます。

参考記事

『VBA　テーブル（ListObjects）の設定・解除する』

『VBA　テーブル（ListObjects）行の削除』

『VBA　テーブル（ListObjects）のフィルター設定・解除』

『VBA　テーブル（ListObjects）指定値以上赤文字にする』

『VBA　テーブル（ListObjects）データを追加する』

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る