ªð¦^¦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 : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD