Excel中的宏以生成列表

我在Sheet1中有一个手动更新的名称列表，我正在尝试编写一个宏（我想将它附加到一个按钮），该宏将使用值COUNTA（）对行进行计数，并将该值放在一列（比如a）中，该列旁边有它被计数的日期（B列）。以下是我遇到的问题：

1-我不能使用“Today（）”，因为它每天都在变化。我可以直接键入日期，但如果有一种方法可以自动执行并在该日期锁定它，那就容易多了

2-我不知道如何告诉宏，每次执行时，它都应该将信息放在下一行，以便创建（并增长）列表

---

谢谢

要查找最后一行，可以执行以下操作：

FinalRow = Cells(Rows.Count, 1).End(xlUp).Row

这将把列1（A）中的行数放入FinalRow变量中

要将当前日期添加到单元格中，请执行以下操作：

cells(1,1) = Date

您可以使用此选项，例如，浏览所有行：

For i=1 to FinalRow
cells(i,2) = Date
next i

---

希望我能提供帮助。

请向我们展示您现有的代码。例如，我可以试试这样的东西

myRange.Value=Date

。对于第二部分，这里有许多很好的答案，可以用来查找列中的第一个空单元格。