GBKEE

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

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4.     Set Rng = Sheets("«ü©w¤u§@ªí").Range("«ü©w½d³ò").Find("·j´M¦r¦ê", LookAT:=xlWhole)
   
5.     If Not Rng Is Nothing Then MsgBox Rng.Value
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# junkwei
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng, Ar, R As Range, i As Integer, ii As Integer
   
4.     Ar = Range("A1").CurrentRegion.Value    '¸ê®Æ®w
   
5.     i = [MATCH(J1,A1:D1,0)]
   
6.     '©Îª½±µµ¹ I=3  '¼Æ¾Ç¦¨ÁZ¦b¸ê®Æ®wªºÄæ¦ì
   
7.     Set Rng = Range("H1", Range("H1").End(xlDown)).Resize(, 2)
   
8.     For Each R In Rng.Rows
   
9.         For ii = 1 To UBound(Ar, 1)
   
10.             If R.Cells(1, 1) & R.Cells(1, 2) = Ar(ii, 1) & Ar(ii, 2) Then
    
11.                 R.Cells(1, 3) = Ar(ii, 3)
    
12.                 Exit For
    
13.             End If
    
14.         Next
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# junkwei
µ{¦¡½X¬O¨Ì 5# ªº¹Ï¥Ü¼ÒÀÀªº,§A­×§ï¦¨¥\.¨ºVBA¥i«Ü§Ö¤W¤âªº.