- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 106
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-5-3
               
|
¦^´_ 2# adam2010 - Sub ¥¨¶°2()
- '¿z¿ï¥X©Ò¦³TOP²£«~
- ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
- "TOP*"), Operator:=xlFilterValues
- '±N¿z¿ïµ²ªG¥æ´Á³]©wVlookup¤½¦¡
- Range([E2], [A65536].End(xlUp).Offset(, 4)).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
- '±N¿z¿ï¨ú®ø
- ActiveSheet.Range("$A$1:$I$305").AutoFilter
- End Sub
½Æ»s¥N½X |
|