register313

¦^´_ 1# cdkee

1. Sub aa()
   
2. Ar = [A1].CurrentRegion
   
3. [A1].AutoFilter Field:=2, Criteria1:="=9:15:000", Operator:=xlOr, Criteria2:="=13:30:000"
   
4. For Each C In Range("C1:C" & [C65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
   
5.   C.Offset(1, 0) = C
   
6.   C.Offset(1, 4) = C.Offset(1, 4) + C.Offset(0, 4)
   
7. Next
   
8. Set Rng = [A1].CurrentRegion.SpecialCells(xlCellTypeVisible)
   
9. Rng.Delete Shift:=xlUp
   
10. [A1].CurrentRegion.Copy [J1]
    
11. [A1].Resize(UBound(Ar), 8) = Ar
    
12. End Sub

½Æ»s¥N½X