GBKEE

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

1. Option Explicit
   
2. Sub Ex()
   
3.     Selection.Copy
   
4.     With Range("D1")
   
5.         .PasteSpecial xlPasteValues  '¶È½Æ»s­È
   
6.         .Select
   
7.         Application.SendKeys "{F2}~", True     '«öÁä F2:´¡¤J ,~ :Enter
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# j88141
¤£ª¾¬O2007Àɮצb2003Àô¹Ò¤¤ÂàÀÉ,¨S¦³¨£¸ê®ÆÅçÃÒªºÀx¦s®æ
­×§ï¤@¤U§Aªºµ{¦¡

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Rng(1 To 2) As Range, E As Range
   
3.     Set Rng(1) = [A1:C2]   'ÂX¥R¨ìC2¸Õ¸Õ  '¥i­×§ï¬°¤j½ÒªíªºE¦C ¨ì P¦C
   
4.     Application.EnableEvents = False
   
5.     If Not Intersect(Target, Rng(1)) Is Nothing Then  'Target, Rng(1) Àx¦s®æ½d³ò¦³¥æ¶°¨ì
   
6.         For Each E In Rng(1).Rows(1).Cells            '©m¦W¦C
   
7.             Set Rng(2) = Range("C11:C14").Find(E, LookAt:=xlWhole, MatchCase:=True)
   
8.             With E.Offset(1)
   
9.                 If Not Rng(2) Is Nothing Then .Value = Rng(2).Offset(0, 1).Value Else .Value = ""
   
10.             End With
    
11.         Next
    
12.     End If
    
13.     Application.EnableEvents = True
    
14. End Sub

½Æ»s¥N½X