vba - 在VBA中将一系列离散范围组合成一个数组？

Question

我有一个 for 循环，每个循环产生一个范围，格式如下:

MsgBox currentRange.Address

输出

$A$4:A$1000
$D$4:D$1000
$Z$4:Z$1000

每个循环一个值。

如何将所有这些范围组合成更大的范围，以便使用 vba 代码读入数组。

我尝试使用类似的东西

bigRange = Application.Union(bigRange, currentRange)

在循环内，但是这不起作用。

Answer 1

试试这个:

Set bigRange = Application.Union(bigRange, currentRange)

你忘了 Set .它需要，因为 Range 是对象。要获取地址，请使用 bigRange.Address .

还要确保初始化 bigRange

If bigRange Is Nothing Then
   Set bigRange = currentRange
End If