我需要的是下面的代码忽略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