预订系统Excel - 忽略IF语句条件满足的第一次和最后一次

时间:2017-11-11 05:39:27

标签: excel vba excel-vba loops

我需要的是下面的代码忽略IF语句中满足条件的第一次和最后一次。

感谢反馈。

Do

    Set aCell = orange.FindNext(After:=aCell)

    If aCell.Offset(0, 1).Value <= Dt.Value And aCell.Offset(0, 3).Value >= Dt.Value Then
        Set Cl = aCell.Cells(1, 5)
        Set Nn = aCell.Cells(1, 10)
        Set ID = aCell.Offset(0, -1)

        If oCell <> Nn Or iCell <> ID Then
           dCell.Value = Nn
           Set oCell = Nn
           Set iCell = ID
       End If

0 个答案:

没有答案