如何追加或组合范围？

Question

我正在使用Excel VBA进行应用程序,我需要从变量中的不同工作表中复制一些范围.
所有范围都具有相同的列数但行数不同.我在考虑制作一个矩阵.只需将每张Sheet中的UsedRange附加到另一张上......但没办法

For i = 1 To wbDataFile.Sheets.Count

    Set wsCPDataFile = wbDataFile.Sheets(wbDataFile.Sheets(i).Name)
    If Not DataRng Is Nothing Then
        Set DataRng=  DataRng (Append??)
    Else
    ' the first valid cell becomes rng2
        Set DataRng = wsCPDataFile.UsedRange
    End If

Next I
Data = DataRng

Answer 1

使用Union.像这样:

Sub jzz()
Dim rng As Range

Set rng = Range("A1")

Set rng = Union(rng, Range("A2"))

End Sub