将特定单元格填充到同一工作簿中另一个工作表的最后一行答案

【问题标题】：Populate specific cells to the last row in another Sheet in the same workbook将特定单元格填充到同一工作簿中另一个工作表的最后一行
【发布时间】：2020-02-11 06:17:30
【问题描述】：

它粘贴值但不粘贴到工作表中的最后一行 (List) END(xlDown).offset(1) 停止宏并使其崩溃，我得到错误 1004 对象未定义。

谁能帮我改进一下这段代码>

Private Sub CommandButton2_Click()

Dim ws As Worksheet
Set ws = ActiveSheet

Worksheets("FORM").Range("B7").Copy
Worksheets("List").Range("B7").End(xlDown).Offset(1).PasteSpecial xlPasteValues
Worksheets("FORM").Range("D7").Copy
Worksheets("List").Range("C7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("G7").Copy
Worksheets("List").Range("D7").PasteSpecial xlPasteValues
'second line in the same row'
Worksheets("FORM").Range("A8").Copy
Worksheets("List").Range("F7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("E8").Copy
Worksheets("List").Range("G7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("H8").Copy
Worksheets("List").Range("H7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("K8").Copy
Worksheets("List").Range("I7").PasteSpecial xlPasteValues

End Sub

【问题讨论】：

查看here了解如何找到最后一行。

标签： excel vba

【解决方案1】：

这是因为你在使用 Worksheets("FORM") 而应该使用 Sheets("FORM") 此外，当您使用.Offset() 时，您需要指定要偏移的行号和列号 - 所以我想在您的情况下.Offset(1,0)。如果您进行了这些更改，您的代码应该可以工作。

【讨论】：

我做到了，但我收到了这个“感谢您的反馈！声望低于 15 人的投票会被记录下来，但不要更改公开显示的帖子得分。”
是的，但是如果它对您有用，有一个勾选按钮可以接受答案 - 与向上和向下箭头不同。