ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

  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

Book1.zip (91.31 KB)

Sub Bluechip()
Dim xR As Range, xF As Range, xE As Range
Sheets("ªÑ²¼¥D­¶").Cells.Clear
Set xE = [ªÑ²¼¥D­¶!A1]
For Each xR In Range([ÁZÀuªÑ!A1], [ÁZÀuªÑ!A65536].End(xlUp))
    Set xF = [¥þ³¡¸¹½X!B:B].Find(xR.Value, Lookat:=xlWhole)
    If xR = "" Or xF Is Nothing Then GoTo 101
    xE.Resize(1, 3) = xF(1, 0).Resize(1, 3).Value
    Set xE = xE(2)
101: Next
End Sub


========================

TOP

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


    ÁÂÁÂ ¤j¤j ^_^

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD