GBKEE

¦^´_ 3# vic

¬O³o¼Ë¶Ü?
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), S(1 To 2), xRow As Long, E As Variant
   
4.     Ar = Array("A:C", "E:E", "G:K", "M:O") '¤j¬ù600µ§ªºÄæ¦ì¦r¥À
   
5.     If Second(Time) Mod 30 = 0 Then
   
6.         With Sht1
   
7.             xRow = .Range("A65536").End(xlUp).Offset(1).Row
   
8.             For Each E In Ar
   
9.                 S(1) = Replace(E, ":", xRow & ":") & xRow
   
10.                 S(2) = Replace(E, ":", 18 & ":") & 18
    
11.                 .Range(S(1)).Value = .Range(S(2)).Value
    
12.             Next
    
13.         End With
    
14.     End If
    
15.   ' °}¦C¸m¤J¨ÇÄæ¦ì¦r¥À , ¥iºë²¤U­±ªºµ{¦¡½X
    
16.    'Sht1.Range("A" & xRow & ":C" & xRow).Value = Sht1.Range("A18:C18").Value
    
17.    'Sht1.Range("E" & xRow & ":E" & xRow).Value = Sht1.Range("E18:E18").Value
    
18.    'Sht1.Range("G" & xRow & ":K" & xRow).Value = Sht1.Range("G18:K18").Value
    
19.    'Sht1.Range("M" & xRow & ":O" & xRow).Value = Sht1.Range("M18:O18").Value
    
20.    '''¤j¬ù600µ§
    
21. End Sub

½Æ»s¥N½X