GBKEE

¦^´_ 1# hong912
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR(), R
   
4.     With Workbooks("¥X³f³æ.xlsx").Sheets(1)
   
5.         Set Rng = .Columns("D:D").Find("¥¿½TµL»~", LookAT:=xlWhole)
   
6.         If Not Rng Is Nothing Then
   
7.             AR = .Range("C15:g" & Rng.Row - 1).Value
   
8.         Else
   
9.             MsgBox "¨S¦³  ¥¿½TµL»~"
   
10.             Exit Sub
    
11.         End If
    
12.     End With
    
13.     With Workbooks("¦sÀÉ.xlsx").Sheets(1)
    
14.         With .Range("c" & .Rows.Count).End(xlUp).Offset(1)
    
15.             .Resize(UBound(AR), UBound(AR, 2)) = AR
    
16.             With .Offset(, -2).Resize(UBound(AR))
    
17.                 .Cells = "=month(Today())"
    
18.                 .Value = .Value
    
19.             End With
    
20.             With .Offset(, -1).Resize(UBound(AR))
    
21.                 .Cells = "=today()"
    
22.                 .Value = .Value
    
23.             End With
    
24.         End With
    
25.     End With
    
26. End Sub

½Æ»s¥N½X