[µo°Ý] ½Ð°Ý find ¦pªG§ä¤£¨ì¡A¥i¥H²¤¹L¿ù»~¶Ü¡AÁÂÁÂ

wufonna

1. Sub Bluechip()
   
2.   Dim S As String, i, j
   
3.    Sheets("ªÑ²¼¥D­¶").Cells.Clear
   
4.    For i = 1 To Sheets("ÁZÀuªÑ").Range("A" & Sheets("ÁZÀuªÑ").Rows.Count).End(xlUp).Row
   
5.     S = Sheets("ÁZÀuªÑ").Cells(i, 1).Value
   
6.     On Error Resume Next
   
7.     j = Sheets("¥þ³¡¸¹½X").Range("A:B").Find(S).Row '§ä¤£¨ì·|¿ù»~
   
8.     Sheets("ªÑ²¼¥D­¶").Cells(i, 1).Resize(1, 3).Value = Sheets("¥þ³¡¸¹½X").Cells(j, 1).Resize(1, 3).Value
   
9.    Next
   
10.   'MsgBox i
    
11. End Sub

½Æ»s¥N½X

wufonna

¦^´_ 2# ­ã´£³¡ªL


    ÁÂÁÂ ¤j¤j ^_^