Excel 表格顶部的新行

Question

我有一段 VBA 代码想要增强。有两个 Excel 表 - ToDo和Done。该代码获取ToDo表中的第一行（我使用表标题作为锚单元并向下偏移一行以获取值）。

运行一些其他功能后，我想将此值添加到Done表中，然后从原始ToDo表中删除它。

这一切都有效 - 需要注意的是ListRows.Add函数像往常一样将新行添加到表的底部。有没有办法将新的空行和内容添加到“完成”表的顶部，以便最后处理的值将自上而下而不是自下而上运行？

某些范围倒序函数可能会打乱整个顺序。另外在 .Range(2) 中添加时间戳并始终进行排序对于解决方法来说感觉太混乱（应该有一个更简洁的方法，对吧？）

Sub Data()

    Range("Data_transfer").Value = Range("ToDo_header").Offset(1).Value

    'some irrelevant code runs here

    Set newrow = ActiveSheet.ListObjects("Done").ListRows.Add

    With newrow
    .Range(1) = Range("Data_transfer").Value
    End With

    Range("ToDo_header").Offset(1).Delete

End Sub

Answer 1

要将新的空行添加到顶部，只需添加位置即可

Set newrow = ActiveSheet.ListObjects("Done").ListRows.Add(1)

可以在此处找到文档。