【Ｅxcel】テーブル操作

元データ

テーブル全体の取得

  ' リストオブジェクトを取得する。
  Dim lo As ListObject
  Set lo = ThisWorkbook.Worksheets(1).ListObjects(1)

　・ListObjectsは１ブック中の全てのテーブル

テーブルの各情報の取得

ヘッダー／ボディ

  Dim header_r As Range
  Dim body_r As Range
  Set header_r = lo.HeaderRowRange()
  Set body_r = lo.DataBodyRange

　・ヘッダは1行目、ボディは2行目以降

参考サイト

エクセルの神髄 第131回.テーブル操作のVBAコード（ListObject,DataBodyRange）