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

Question

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

这是我运行的代码，它返回运行时错误“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

标签： vba

Answer 1

更改您的线路Range("D5" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues。Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

但是，不需要选择任何东西来获得相同的结果。此行将替换您的所有代码：

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