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

¦p¦ó¥Îvlookup¦Û°Ê¦¬´M¤ñ¹ïªº¶µ¦¸¼Æ¶q

¦p¦ó¥Îvlookup¦Û°Ê¦¬´M¤ñ¹ïªº¶µ¦¸¼Æ¶q

½Ð°Ý¤@¯ë¨Ï¥Îvlookup®É¡A¨Ï¥Î·Æ¹«ÂI¨â¤U§Y¥i¾ãÄæ³£¦Û°Ê¶ñ¤J
¨Ï¥Î¿ý»s¥\¯à®É¡A¦]¬°¨C¦¸¶µ¦¸³£¤£¦P¡A¸Ó¦p¦ó¥h°õ¦æ?
¥Ø«e§Ú¬O¥Î¤U­±³o¼Ë¿ý»s¡A¦³¤ñ¸û©ú²Ó«ü¥OÅývba¯à°÷§ì¨ì¹ïÀ³ªºÄæ¦ì?

    Sheets("°U¥~³øªí").Select 'VLOOKUP¤ñ¹ï¸ê®Æ±ÄÁʸɥR
    Range("B2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-1],'°U¥~³øªí(Á`ªí)'!C[-1]:C,2,0)"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B3000")
    Range("B2:B3000").Select
    Columns("B:B").Select  '§R°£N/A
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

¦^´_ 2# rouber590324
ÁÂÁ¡Aµ¥µ¥´ú¸Õ¬Ý¬Ý
¦³°ÝÃD¦A½Ð±Ð

TOP

¦^´_ 4# ­ã´£³¡ªL

With Range([°U¥~³øªí!B2], [°U¥~³øªí!A65536].End(xlUp)(1, 2))  '¥HAÄæ¨ú±o³Ì«á¤@µ§¦ì¸m, ¦A¥k²¾¤@®æ  
½Ð°Ý³o¤@¦æªº·N«ä§ï¬°(1,3)·|±N°U¥~³øªí¤¤,A-CÄæ¦ì¤@°_¤ñ¹ï¹L¨Óªº·N«ä¶Ü?

TOP

¦^´_ 7# ­ã´£³¡ªL

ÁÂÁ¡A§Ú²z¸Ñ¤F

TOP

¦^´_ 6# n7822123


    Range([°U¥~³øªí!B2], [°U¥~³øªí!A65536].End(xlUp)(1, 3)).Select
§Ú²z¸Ñ¤Fselect¡A·PÁ«ü¾É

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD