Excel VBA 関数 - ehatoovo @ ウィキ

---

複数のセル範囲の結合

• Union関数を使う。

   Union(Arg1, Arg2, ...)

ListObjectに追加する程ではない情報を取りたい場合に便利かもしれない。

   '[シートモジュール]
   Property Get DataTable() As ListObject
       Set DataTable = Me.ListObjects(1)
   End Property
   Property Get OtherInfoRange() As Range
       Set OtherInfoRange = DataTable.ListColumns(1).Range.Offset(0, -1) ' リストの左隣
   End Property
   Property Get DataTableRangeWithOtherInfo() As Range
       Set DataTableRangeWithOtherInfo = Union(OtherInfoRange, DataTable.Range)
   End Property
   
   Sub TEST()
       DataTableRangeWithOtherInfo.Select
   End Sub