Vba 根据按日期排序列表中单元格中的日期值选择、复制和粘贴行范围

我需要Excel中某些VBA的帮助，以查找特定的单元格值（即今天的日期），然后根据该条件选择、复制一系列行，并根据它们在过去或将来的条件粘贴到另一个工作表中。我的工作表是按日期分类的，我读过许多类似于这个问题的帖子，但我没有自己解决，所以不知道我的问题是缺乏处理日期的专业知识，还是我读过的所有线程都有稍微不同的要求

源工作表的示例如下所示：

givenName   RegistrationStartDate
Kirstie     1/07/2010
Momena      12/01/2011
Seyedkazem  18/01/2011
Christie    3/02/2011
Jakub       8/02/2011
Steven      11/07/2011
Patrina     13/07/2011
Gregory     14/07/2011
Fatima      15/07/2011
Thomas      18/07/2011
Ala         **19/07/2011**
Anne        31/07/2011
Umair       1/08/2011
Laura       2/08/2011

我需要VBA的帮助，以找到今天的日期2011年7月19日，并将其粘贴到“过去”工作表中

givenName   RegistrationStartDate
Kirstie     1/07/2010
Momena      12/01/2011
Seyedkazem  18/01/2011
Christie    3/02/2011
Jakub       8/02/2011
Steven      11/07/2011
Patrina     13/07/2011
Gregory     14/07/2011
Fatima      15/07/2011
Thomas      18/07/2011

和“未来”工作表

givenName   RegistrationStartDate
Anne        31/07/2011
Umair       1/08/2011
Laura       2/08/2011

我想，让我更难过的是，我特别不需要在今天的日期上划任何一行。一旦我解决了这个问题，我将向“现在是什么日期”标准（即今天日期前后28天）添加逻辑，并基于此复制/粘贴行。我想如果有什么大师能帮我解决以上问题，我会没事的

致意

---

Larry

因此，要回答您的问题，获取当前日期的函数（即系统日期，希望是相同的），您可以使用

日期

函数

现在处理列表并将每个日期与系统日期进行比较

• 日期
• 日期>系统日期是未来的
• 日期=系统日期被忽略

如果表中的日期包含时间信息，则必须使用

Int（yourtabledate）

来去除时间，因为

02.08.2011 08:12>02.08.2011

（隐式时间

00:00

），因此会转到您不想要的未来

其他的。。。如果您不知道如何在VBA中跨表计算循环，请发布特定问题

干杯 迈克