根據日期將數據和行的一部分復制到另一張紙上

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變量。如果日期已過期，請復制該行。繼續循環直到得到空白行。

接下來，做同樣的事情，但是檢查有效日期是否即將過期。