我希望能得到一些特殊的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)

复制元素工作正常,

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

我知道你可以使用union来粘贴并指定顺序 . 我希望指定顺序,但在不同的列中 .

x3进入A列,x2进入C列,x1进入F列 .

我正在寻找粘贴代码 .

我期待得到一些好的想法和想法,我经常来这里,因为我是编码的初学者,我已经检查了网络,但没有找到我的问题的解决方案 . 这让我有机会增加知识 .

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

Set xCopy = Union(x2, x3, x1)

范围(“A2050”) . PasteSpecial Paste:= xlPasteValues,Operation:= xlNone,SkipBlanks:= False,Transpose:= False Application.CutCopyMode = False

并且它没有粘贴,按照我选择的顺序,此外,我试图在下面粘贴另一个选择 .

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

我得到一个错误,任何人都可以帮助,首先为什么联盟没有按照我选择的顺序粘贴,其次为什么我得到偏移的错误 .