テーブルの列を操作する【ListObject.ListColumnsプロパティ】【ExcelVBA】

テーブルの列を操作する

作成したテーブルの列を取得し、操作をするには ListObject.ListColumnsプロパティ を使います。

構文
LisutObject.ListColumns

テーブルの列を操作するサンプルコード

Public Sub Sample()
  'テーブルを作成する
  Dim Tables As ListObject
  Set Tables = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, _
                                         Source:=Range("A1:D5"), _
                                         XlListObjectHasHeaders:=xlNo)
  
  '2列目の列名を取得し、イミディエイトに表示
  Debug.Print "2列目：" & ActiveSheet.ListObjects("テーブル1").ListColumns(2).Name
 
  '2列目を削除
  ActiveSheet.ListObjects("テーブル1").ListColumns(2).Delete
  '列名でも削除可
  ActiveSheet.ListObjects("テーブル1").ListColumns("列2").Delete
  
  '2列目に列を追加
  ActiveSheet.ListObjects("テーブル1").ListColumns.Add Position:=2
  

End Sub

注意点

• 列を追加する場合、位置の指定がなければ右端に追加されていきます。

関連記事

• テーブルを作成する【ListObjects.Add メソッド】
• テーブル名を取得する【ListObjectsプロパティ】
• テーブルの行を操作する【ListObject.ListRowsプロパティ】