粘贴 – 将联合范围复制到预定义的列中

我希望得到一些特定的Excel问题的帮助。

从一个工作簿复制

Set x1 = .Range("D1:D" & i).Offset(rowOffset:=1, columnOffset:=0) Set x2 = .Range("F1:F" & i).Offset(rowOffset:=1, columnOffset:=0) Set x3 = .Range("G1:G" & i).Offset(rowOffset:=1, columnOffset:=0) Set xCopy = Union(x1, x2, x3) 

复制元素工作正常，

问题：我很想知道是否可以使用某种types的粘贴联合将这些范围粘贴到另一个工作簿中的特定列中。

我知道你可以使用工会粘贴和指定顺序。 我正在寻找指定顺序，但在不同的列。

x3到列A，x2到列C和x1到列F.

我正在寻找粘贴代码。

我期待着得到一些好的想法和想法，我经常来这里，因为我是一个编码初学者，我已经检查了networking，并没有find解决我的问题。 这给了我一个增加我的知识的机会。

大家好，我修改了我的工会

 Set xCopy = Union(x2, x3, x1) 

Range（“A2050”）。PasteSpecial Paste：= xlPasteValues，Operation：= xlNone，SkipBlanks：= False，Transpose：= False Application.CutCopyMode = False

它不会粘贴，我已经select的顺序，此外，我试图粘贴下面的另一个select。

 Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues 

我得到一个错误，任何人都可以帮助，首先为什么工会不粘贴在我select的顺序，其次为什么我得到一个与偏移量的错误。