将工作表1中的值剪切并粘贴到工作表2上的下一个可用行

Question

我正在尝试将第1页上的一系列单元格中的值切换到第2页上的下一个可用行。我看到的所有指南和建议都是用于复制和粘贴以及相同的工作表。

纸张1上的范围是E5-H5要切割，不复制，然后粘贴到纸张2，单元格E7-H7或下面的下一个可用行，因为每当有人输入数据时，我需要纸张2来保存它。

Answer 1

不要选择。我发布这个答案更多是为了帮助@ KoderM16改进他们的方法，而不是回答原来的问题：

Sub CutPaste()
ThisWorkbook.Sheets("Sheet1").Range("E5:H5").Copy
Sheets("Sheet2").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).PasteSpecial
End Sub

这也没有意义，因为它返回true或false（很可能总是为true，因为它实际上可以选择该地址）：

Lastrow = Sheets("Sheet2").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Select

如果要将行分配到Lastrow，则最后需要.row而不是.select，然后不要使用lastrow。

使用你的代码，lastrow很可能总是-1，因为这是True的值

Answer 2

以下代码将复制您的范围，并在E列第2页中查找第一个空单元格（从下往上），以进行粘贴。希望这会有所帮助。

c_str()

由于您是Stack Overflow的新手，也可能是vba，所以请尽量遵守Peh的上述评论。你的问题虽然不是特别的，但很容易在部分内容中出现。此外，如果这回答了您的问题，请勾选它。