范围行在第二行而不是第一行粘贴

Question

我写了一些VBA来将数据从一张纸复制到另一张。数据将添加到表中，然后添加到数据透视表报告中。我将数据作为一个范围内的行处理，因此我可以使用PasteSpecial xlPasteValues函数。数据复制和粘贴查找除了我的粘贴位置在新数据的顶部添加一个空行。我认为问题是我的代码中的.Offset(1,0)。

shtNew.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

如何在shtNew上找到范围的大小，粘贴在第一行，然后在第一次粘贴后粘贴到新行？我需要IF/Then吗？

Answer 1

尝试

.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues

*纠正了我的荒谬解释。如果这会留给您一个空间，那么这意味着您在复制的范围内包含一个空格。刚试过它。