[VBA]複数のセルオブジェクトを１つのセルオブジェクトに統合する。

[はじめに]
・あまり知られていないかもしれませんが、
　複数のセルオブジェクトを、１つのセルオブジェクトに統合することができます。
　※Union関数を使用。

　統合後のセルに対して、
　プロパティやメソッドにアクセスすると、
　統合前のセルすべてに対して、アクセスすることと同じ意味になります。
　複数のセルオブジェクトをまとめて処理したい場合に、便利です。
　※［注意］セルの結合ではありません。

　以下は、
　「A1」、「B2:D5」、「D3,D5」の複数のセル領域を統合して、
　「Hello」の文字列を設定する例です。
　　備忘録としてサンプルソースを掲載します。

[ソース]

Private Sub UnionSample()     Dim cellArray() As Variant     Dim cellUnion As Range     Dim cell As Variant          '① 統合前のセルを定義     cellArray = Array(Range("A1"), Range("B2:C5"), Range("D3:F5"))          '② ①で定義したセルを     '　 １つのセルオブジェクトに統合する。     For Each cell In cellArray         If cellUnion Is Nothing Then             '初回のみセルを設定             Set cellUnion = cell         Else             '2回目以降は、セルを統合する。             Set cellUnion = Union(cellUnion, cell)         End If          Next          '③ 統合後のセルに値を設定。     cellUnion.Value = "Hello" End Sub

[VBA]複数のセルオブジェクトを１つのセルオブジェクトに統合する。