excel - エクセル VBA ユニオン

Question

Excel 2010 で、VBA を使用して 2 つの個別の範囲から 2 つの列の範囲を作成するにはどうすればよいですか?

以下のコードでは Union を使用していますが、結合された範囲 (rngAll) には最初の列 (rng1) のみが含まれています。

Dim rng1 As Range
Dim rng2 As Range
Dim rngAll As Range

Set rng1 = Range(TableColumn1)
Set rng2 = Range(TableColumn2)
Set rngAll = Application.Union(rng1, rng2)

ありがとう。

Answer 1

Rangeオブジェクトを次のように修飾して、これを試してくださいSheet。

Set rng1 = Sheets(1).Range(TableColumn1)
Set rng2 = Sheets(1).Range(TableColumn2)
Set rngAll = Application.Union(rng1, rng2)

次に、Watch WindowまたはImmediate Windowで、を確認できますrngAll.Address。両方の範囲が表示されるはずです。