¦p¦ó¥Îvlookup¦Û°Ê¦¬´M¤ñ¹ïªº¶µ¦¸¼Æ¶q
- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-8
|
With Range([°U¥~³øªí!B2], [°U¥~³øªí!A65536].End(xlUp)(1, 2)) '¥HAÄæ¨ú±o³Ì«á¤@µ§¦ì¸m, ¦A¥k²¾¤@®æ
.FormulaR1C1 = "=VLOOKUP(RC[-1],'°U¥~³øªí(Á`ªí)'!C[-1]:C,2,0)"
.Value = .Value
.Replace "#N/A", ""
End With |
|
|
|
|
|
|
- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-8
|
¦^´_ 5# cclo0728
¥i¦Û¦æ¥h´ú¸Õ¦³¦ó¤£¦P???
¦Aµ¹¨âºØ¤èªk:
Sub TTT1()
R& = [°U¥~³øªí!A65536].End(xlUp).Row
With [°U¥~³øªí!B2].Resize(R - 1)
.FormulaR1C1 = "=VLOOKUP(RC[-1],'°U¥~³øªí(Á`ªí)'!C[-1]:C,2,0)"
.Value = .Value
.Replace "#N/A", ""
End With
End Sub
Sub TTT2()
R& = [°U¥~³øªí!A65536].End(xlUp).Row
With Sheets("°U¥~³øªí").Range("B2:B" & R)
.FormulaR1C1 = "=VLOOKUP(RC[-1],'°U¥~³øªí(Á`ªí)'!C[-1]:C,2,0)"
.Value = .Value
.Replace "#N/A", ""
End With
End Sub |
|
|
|
|
|
|