play9091

¸Õ¸Õ¬Ý¡A¤£ª¾¹D¬O¤£¬O§A­nªº¡I

1. Sub ¥¨¶°2()
   
2. '
   
3. ' ¥¨¶°2 ¥¨¶°
   
4. '
   
5. 
   
6. '¿z¿ï¸ê®Æ
   
7.     ActiveSheet.Range("$A$1:$B$57").AutoFilter Field:=1, Criteria1:="B"
   
8. '¥þ¿ï
   
9.     Range("A1").CurrentRegion.Select
   
10. '¨ú¥N
    
11.     Selection.Replace What:="8/1", Replacement:="8/10", LookAt:=xlPart, _
    
12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
13.         ReplaceFormat:=False
    
14. End Sub

½Æ»s¥N½X