如何将单元格条目复制到VBA中的下一个空行？

因此，我创建了一个工作表来监控股票头寸。我想用一个按钮记录每个关闭的股票头寸的数据。字符串中的第一个命令是从同一工作表中复制股票名称。我想知道如何从同一个工作表中执行此操作，以及从同一文档中的另一个工作表执行此操作的语法。多谢各位

这是我运行的代码，它返回一个运行时错误“1004”范围的对象全局失败

Sub LogPosition()
Dim rngStart As Range
Set rngStart = ActiveCell
Sheets("Charts").Select
ActiveSheet.Range("D5").Select
Selection.Copy
Range("D5" & Rows.Count).End(xlUp).Offset(1, 
0).PasteSpecial xlPasteValues
rngStart.Select
End Sub

---

在

范围（“D”&Rows.Count）中更改行
范围（“D5”&Rows.Count）。结束（xlUp）。偏移（1，0）。粘贴特殊XLPasteValue

但是，无需选择任何内容即可获得相同的结果。此行将替换您的所有代码：

Range("D" & Rows.Count).End(xlUp).Offset(1, 0).value = ActiveSheet.Range("D5").value

下一行将“D5”值粘贴到另一张表中：

Sheets("Charts").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).value = ActiveSheet.Range("D5").value

阅读。你不能选择一个单元格，除非它的工作表已经激活。这样做了！感谢一个工厂。这么简单的事情花了很长时间才弄明白。哈哈