将数据列复制并粘贴到另一个VBA下

Question

我知道这是一个真正简单的解决方案，但我想要做的是采用D14：E列，并将数值粘贴到工作表的另一部分，正确的代码如下：

Range("D14", Cells(Rows.Count, "E")).Copy
Range("AH14", Cells(Rows.Count, "AI").End(xlUp)).PasteSpecial Paste:=xlPasteValues

我的问题是，当我尝试使用第二组列并将其粘贴到我刚粘贴的列之下时。我正在尝试的代码如下：

Range("N14", Cells(Rows.Count, "O")).Copy
Range("AH14" & Cells(Rows.Count, "AI").End(xlUp)).PasteSpecial Paste:=xlPasteValues

请注意，列的大小各不相同（意味着D列可能是不同的大小，因为之前输入的变量（如果您想知道我的意思，我之前已经回答了一个问题）。）

Answer 1

Range("N14", Cells(Rows.Count, "O").End(xlUp)).Copy ' Copy columns Range("AH14").End(xlDown).Offset(1, 0).Select ' Find the first free column, select it Selection.PasteSpecial Paste:=xlPasteValues 'paste copied cells