根据日期将数据和部分行复制到另一个工作表答案

【问题标题】：Copy data and part of row to another sheet based on date根据日期将数据和部分行复制到另一个工作表
【发布时间】：2014-04-07 11:43:31
【问题描述】：

所以我有一个由 2 张工作表组成的 Excel 工作簿。 Sheet2包含很多信息

Column A : name
Column B : Size
...
Column P : Validity date

现在有效期日期具有条件格式以过滤日期。当前日期之前的每个日期都是红色的今天和未来 10 天的日期是橙色之后的每个日期都是绿色的

在同一个工作簿中有一个用于报告的空工作表1。我想自动将工作表 2 上显示为红色的行复制到工作表 1 的标题“有效期已过期”下，所有橙色的行显示在另一个标题“即将过期”下

这怎么可能？

【问题讨论】：

标签： excel date copy conditional-formatting vba

【解决方案1】：

宏中的以下两行将复制格式并设置原始值（公式将根据新位置重新计算，因此您需要该值）。在本例中，我将 Sheet1:B2 的格式和值复制到了 Sheet1:D4 中。

ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Copy ThisWorkbook.Sheets("Sheet1").Cells(4, 4)
ThisWorkbook.Sheets("Sheet1").Cells(4, 4).Value = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value

从这里开始，您必须根据当前日期检查每一行的有效日期值（在循环中使用 Date 变量。如果日期已过期，请复制该行。继续循环，直到出现空行。

接下来，做同样的事情，但检查即将过期的值的有效期。

【讨论】：