register313

¦^´_ 1# cdkee
°Ñ¦Ò,¸ê®Æ¶q¤j®É³t«×ºC

1. Sub aa()
   
2. [A:G].Copy [J1]
   
3. For K = [K1].End(xlDown).Row To 1 Step -1
   
4.   T = Cells(K, "K")
   
5.   If T = "9:16:000" Or T = "13:31:000" Then
   
6.     Cells(K, "J").Resize(1, 7).Insert Shift:=xlDown
   
7.     Cells(K, "J").Resize(1, 7).Insert Shift:=xlDown
   
8.     Cells(K, "J").Resize(2, 1) = Cells(K + 2, "J")
   
9.     Cells(K, "L").Resize(2, 5) = Cells(K + 2, "L")
   
10.     Select Case T
    
11.       Case "9:16:000"
    
12.         Cells(K, "K") = "9:14:000"
    
13.         Cells(K + 1, "K") = "9:15:000"
    
14.       Case "13:31:000"
    
15.         Cells(K, "K") = "13:29:000"
    
16.         Cells(K + 1, "K") = "13:30:000"
    
17.     End Select
    
18.   End If
    
19. Next K
    
20. End Sub

½Æ»s¥N½X

register313

¦^´_ 7# cdkee
¤@¯ë¼Ò²Õ­n¥[¦bModule¤º
¬¡­¶Ã¯¼Ò²Õ¤~¥[¦bThisWorkbook¤º
¤u§@ªí¼Ò²Õ«h¥[¦bSheet¤º
register313.rar (53.89 KB)

¤U¸ü¦¸¼Æ: 5

2012-4-30 07:56

register313

¦^´_ 12# cdkee

¦³2¦æ¥[¤J.text

Test2.rar (838.28 KB)

¤U¸ü¦¸¼Æ: 8

2012-4-30 16:53

register313

¦^´_ 14# cdkee

§A12¼Óµ¹§ÚªºÀÉ®×
1.AÄ檺¤é´Á®æ¦¡¦³2ºØ,©Ò¥HJÄ檺¤é´Á®æ¦¡¤]¦³2ºØ
  AÄ檺¤é´Á®æ¦¡­Y§ï¬°1ºØ,JÄ檺¤é´Á®æ¦¡´N¥u¦³1ºØ
  Á`¤§JÄ檺¤é´Á®æ¦¡»PAÄ檺¤é´Á®æ¦¡¬Û¦P
2.§A§ï¬°§R°£1¦C,¦³¨Çµ{¦¡½X¨S§ï¨ì,½Æ»sªº¼Æ¾Ú¬O¿ùªº

¤U¦CÀɮצA¸Õ¬Ý¬Ý
Test2.rar (436.57 KB)

¤U¸ü¦¸¼Æ: 4

2012-4-30 23:29