根据日期将数据和行的一部分复制到另一张纸上

Question

因此，我有一个包含2张纸的Excel工作簿。 Sheet2包含很多信息

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

现在，有效日期已启用条件格式以过滤日期。 今天之前的每个日期都是红色今天和未来10天的日期都是橙色

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

这怎么可能？

Answer 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变量。如果日期已过期，请复制该行。继续循环直到得到空白行。

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