ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¦b¬Û¹ïªº¦ì¸m§ï¬°«ü©wªº¼Æ­È

[µo°Ý] ¦p¦ó¦b¬Û¹ïªº¦ì¸m§ï¬°«ü©wªº¼Æ­È

¥»©«³Ì«á¥Ñ cdkee ©ó 2012-5-19 01:54 ½s¿è

½Ð±Ð¤j¤j¡A¦bSHEET1¥ªÃ䪺¼Æ¾Ú¤¤¡A¦p¦ó±N
1) ©Ò¦³9:16:000 / 13:31:000¥kÃä(CÄæ)ªº¼Æ­È¡A§ï¬°9:15:000 / 13:30:000¥kÃä(CÄæ)ªº¼Æ­È
2) ©Ò¦³9:16:000 / 13:31:000¥kÃä(GÄæ)ªº¼Æ­È¡A©M9:15:000 / 13:30:000¥kÃä(GÄæ)ªº¼Æ­ÈÁ`¥[
3) ±N©Ò¦³9:15:000©M13:30:000¾ã¦C§R°£
4) ±N§ïÅܫ᪺¼Æ¾ÚÅã¥Ü¦bSHEET1ªº¥kÃä
ÁÂÁÂ!
TEST1.rar (131.19 KB)

­n¯àÅý¤H¬ÝÀ´§Aªº°ÝÃD¡A¤~¬O¦³®Äªº´£°Ý¡C

TOP

¦^´_ 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

TOP

¦^´_ 3# register313

¤Ó´Î!¦A·PÁÂregister313¤j¤j±Ð±Â!

TOP

¦^´_ 2# oobird


    ÁÂÁ¤j¤j´£¿ô¡A¤U¦¸·|¦A²M·¡´£¥X°ÝÃD¡C

TOP

¥»©«³Ì«á¥Ñ cdkee ©ó 2012-5-19 15:39 ½s¿è

¹ï¤£°_¡A¨S¦³°ÝÃD¡A¬O§Ú§Ë¿ù!¦A¦¸ÁÂÁ¤j¤j!

test3.rar (521.02 KB)

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD