Excel VBA：将间隔开的日期合并到单独的工作表中

Question

我正在尝试将一列中随机隔开的数据合并到另一张纸中。我要移动的数据是excel序列号，因此我不能在if语句中使用isEmpty() = False或.Value > 1。 4月11日是一个任意其他所有日期之后的日期。问题出在我的if语句中。坚持了一段时间。

到目前为止，我有以下代码：

EndRow = Range("V" & Rows.Count).End(xlUp).Row

i = 1

For e = 27 To EndRow

If Cells(e, 22).Value > DateValue("April 19, 2011") Then

    Sheets("Sheet1").Range("V" & e).Copy
    Sheets("Sheet3").Range("B" & i).PasteSpecial xlPasteValues
    i = i + 1

End If
Next e

在照片中显示了我正在使用的数据。我正在尝试计算清空垃圾箱所需的时间。 “ 1”表示垃圾箱正在运行，“ 0”表示垃圾箱不在运行。只要其下方的单元格中有0，然后有1（开始），就会给出时间戳。相同的是0，然后是1（停止）。

Excel Sheet