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

[µo°Ý] ¿z¿ï³]¤½¦¡ªº¥¨¶°

¦^´_ 2# adam2010
  1. Sub ¥¨¶°2()
  2.     '¿z¿ï¥X©Ò¦³TOP²£«~
  3.     ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
  4.         "TOP*"), Operator:=xlFilterValues
  5.     '±N¿z¿ïµ²ªG¥æ´Á³]©wVlookup¤½¦¡
  6.     Range([E2], [A65536].End(xlUp).Offset(, 4)).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
  7.     '±N¿z¿ï¨ú®ø
  8.     ActiveSheet.Range("$A$1:$I$305").AutoFilter
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD