c_c_lai

¦^´_ 1# snoopykay

1. Sub Ex()
   
2.     Dim sStr$, rest As Range
   
3.     Dim lTar As Range, rTar As Range
   
4.    
   
5.     Range("K2:L10").Clear
   
6.     sStr = InputBox("½Ð¿é¤J­n·j´Mªº¸ê®Æ", "´M§ä¸ê®Æ")
   
7.     Set lTar = Range("A:A").Find(sStr, LookIn:=xlValues)
   
8.    
   
9.     If Not lTar Is Nothing Then
   
10.         '  Set rest = lTar.Resize(1, 9)
    
11.         Set rTar = Cells(2, 11)
    
12.         ' rTar.Resize(9, 1) = Application.Transpose(rest)   '  ¤W¤U¦æ¦P¸q
    
13.         rTar.Resize(9, 1) = Application.Transpose(lTar.Resize(1, 9))
    
14.     End If
    
15. End Sub

½Æ»s¥N½X