如何追加或合并范围？

即时通讯与Excel VBA做一个应用程序，我需要从一个variables复制一些范围从不同的工作表。
所有的范围具有相同的列数但不同的行数。 我正在考虑像matrix制作。 只是从每张纸上追加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

使用联盟。 像这样：

 Sub jzz() Dim rng As Range Set rng = Range("A1") Set rng = Union(rng, Range("A2")) End Sub