c_c_lai

回復 14# HenryWang123
試試看！
ThisWorkbook:

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim T As Date
   
4.    
   
5.     T = #8:47:00 AM#
   
6.     Application.OnTime T, "Module1.AutoCopy"
   
7. End Sub

複製代碼

Module1:

1. Option Explicit
   
2. Sub AutoCopy()
   
3.     Dim t2 As Date
   
4.     Dim i As Integer, sht As String
   
5.    
   
6.     i = 0
   
7.     While i < 2
   
8.         i = i + 1
   
9.         t2 = Now + TimeSerial(0, 2, 0)
   
10.         sht = IIf(i = 1, "Sheet1", "Sheet2")
    
11.         With Sheets(sht)
    
12.             .Select
    
13.             .[a9:j11].Copy
    
14.             .[b65536].End(3).Offset(1, 0).Select
    
15.             If .[b13] = "" Then .[b13].Select
    
16.             Selection.PasteSpecial xlPasteValues
    
17.         End With
    
18.     Wend
    
19.     If Time <= #1:45:00 PM# Then Application.OnTime t2, "Module1.AutoCopy"
    
20. End Sub

複製代碼