GBKEE

¦^´_ 1# ÂŤÑÄR¦À

1. Option Explicit
   
2. Dim Rng  As Range
   
3. Sub Ex()
   
4.     If Rng Is Nothing Then
   
5.         Set Rng = Sheet1.[A1:A10]
   
6.     Else
   
7.         If Rng.Column = 1 Then
   
8.             Set Rng = Rng.Offset(, 1).Resize(Rng.Rows.Count)
   
9.         Else
   
10.             Set Rng = Rng.Offset(Rng.Rows.Count, -1).Resize(Rng.Rows.Count)
    
11.         End If
    
12.     End If
    
13.     Sheet2.[a1].Resize(Rng.Rows.Count) = Rng.Value
    
14.     Application.OnTime Time + #12:00:01 AM#, "SHEET1.EX"   '°õ¦æ SHEET1ªºEXµ{¦¡
    
15. End Sub

½Æ»s¥N½X