GBKEE

¦^´_ 9# ldneye
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim e As Range, Rng(1 To 2) As Range
   
4.     Sheets("2006_1").Range("B:O").Clear
   
5.     For Each e In Sheets("2006_1").Range("a:a").SpecialCells(xlCellTypeConstants)
   
6.         If Trim(e) <> "" Then   '±Æ°£¦³¿é¤JªÅ¥Õ¦r¦êªºÀx¦s®æ
   
7.             'Trim(e) -- LTrim¡BRTrim »P Trim ¨ç¼Æ    ¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim) ©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê¡C
   
8.             Set Rng(1) = Sheets("Return").Range("a:a").Find(e, lookat:=xlPart)
   
9.             If Not Rng(1) Is Nothing Then
   
10.                 Set Rng(2) = Rng(1).CurrentRegion.Columns(1).Find("2005", lookat:=xlWhole)
    
11.                 If Not Rng(2) Is Nothing Then e.Offset(, 1).Resize(, 14) = Rng(2).Resize(, 14).Value
    
12.             End If
    
13.         End If
    
14.     Next
    
15. End Sub

½Æ»s¥N½X