粘贴 - 将复制的联合范围放入预定义列

时间:2017-02-09 23:25:37

标签: excel vba excel-vba

我希望能在特定的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)

复制元素工作正常,

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

我知道你可以使用联合来粘贴并指定顺序。我希望在不同的列中指定顺序。

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

我收到错误,任何人都可以提供帮助,首先是为什么工会没有按照我选择的顺序粘贴,其次为什么我收到错误的偏移。

0 个答案:

没有答案