从一个工作簿复制一个范围内的值并追加到另一个工作簿

Question

我目前使用的代码可以工作，但它是通过剪贴板进行的。绕过剪贴板需要进行哪些更改。

wb.Worksheets("FullAnalysis").Range("A11:AO16").Copy
wbDATA.Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Answer 1

您可以直接赋值：

wbDATA.Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0).Resize(16, 41).Value2 = wb.Worksheets("FullAnalysis").Range("A11:AO16").Value2

Copy the values in a range from a workbook and append to another workbook