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

[µo°Ý] ¦p¦ó±N¤ñ¹ï¨âÄæ¸ê®Æ©ñ¨ì¥t¤@­Ó¬¡­¶Ã¯

[µo°Ý] ¦p¦ó±N¤ñ¹ï¨âÄæ¸ê®Æ©ñ¨ì¥t¤@­Ó¬¡­¶Ã¯

¤p§Ì³o¦³¤@­Óµ{¦¡·í¸ê®Æ®wªºBÄæ=FÄæ ,CÄæ=GÄæ«hHÄæ·|±a¥XAÄ檺­È

½Ð±Ð¥ý¶i¬O§_¥i¥H§ï¦¨¦b¬¡­¶Ã¯"Test"AÄæ="¸ê®Æ®w"BÄæ ,"Test"BÄæ="¸ê®Æ®w"CÄæ «h"Test"CÄæ·|±a¥X"¸ê®Æ®w"AÄæ,"Test"DÄæ·|±a¥X"¸ê®Æ®w"DÄæ

"¸ê®Æ®w"
Part No.        Name        NOTE        DATA
1        A        OK        NA
2        B        OK        NA
3        C        OK        NA
4        D        OK        NA
5        E        OK        NA

"Test"
Name        NOTE        Part No.        DATA
A        OK               
C        OK               
E        OK
  1. Option Explicit

  2. Sub Lib()

  3.     Dim Rng, Ar, R As Range, i As Integer, ii As Integer
  4.    
  5.     Ar = Range("A1").CurrentRegion.Value    '¸ê®Æ®w
  6.    
  7.     i = [MATCH(H1,A1:C1,0)]  '¤ñ¹ï©Ò¦³±ø¥ó
  8.    
  9.     Set Rng = Range("F1", Range("F1").End(xlDown)).Resize(, 2)
  10.    
  11.     For Each R In Rng.Rows
  12.    
  13.         For ii = 1 To UBound(Ar, 1)
  14.         
  15.             If R.Cells(1, 1) & R.Cells(1, 2) = Ar(ii, 2) & Ar(ii, 3) Then
  16.             
  17.                R.Cells(1, 3) = Ar(ii, 1)
  18.                
  19.                 Exit For
  20.             End If
  21.         Next
  22.     Next

  23. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD