GBKEE

¦^´_ 1# eric093
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub ½m²ß()
   
3.     Dim rng(1 To 6), E, K, C As Range
   
4.     Application.ScreenUpdating = False
   
5.     Set rng(1) = Sheets("©ú²Ó").Range("B2")
   
6.     Set rng(2) = Sheets("®É¬q").Range("A:A")
   
7.     rng(3) = FormatDateTime(rng(1), 2)
   
8.     Do While rng(1) <> ""
   
9.         Do
   
10.             Set rng(4) = rng(2).Find(DateValue(rng(3)), LookIn:=xlFormulas, lookat:=xlWhole)
    
11.             If Not rng(4) Is Nothing Then
    
12.                 rng(4).Value = "eric"
    
13.             End If
    
14.         Loop Until rng(4) Is Nothing
    
15.         Set rng(1) = rng(1).Offset(1)
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X