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

¤@­Óvlookupªº°ÝÃD

¦^´_ 1# lone_tiger0303
If Not IsError(P) Then D.Offset(, 1) = P Åܼƭn§Ë²M·¡
  1. For Each n In D
  2.          If n <> "" Then
  3.             m = n
  4.             P = Application.VLookup(m, Ay, 2)
  5.             If Not IsError(P) Then n.Offset(, 1) = P    ''' ¤£¬O  D.Offset(, 1) = P
  6.          End If
  7.        Next
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD