- ©«¤l
- 678
- ¥DÃD
- 147
- ºëµØ
- 0
- ¿n¤À
- 799
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- MS 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2022-1-20
|
¦^´_ 1# bioleon69
VLOOKUP_vba.rar (355.73 KB)
¤£¦n·N«ä¡A¨Sª`·N¨ì°ÝÃD¬O©ñ¦bµ{¦¡°Ï
¦A¸É¤Wµ{¦¡½X
Private Sub CommandButton1_Click()
[B1:G500] = ""
[B1].Resize(500, 6) = "=IF($A1="""","""",VLOOKUP($A1,Sheet1!$B:$H,COLUMN(),))"
[B1].Resize(500, 6) = [B1].Resize(500, 6).Value
[H1].Select
End Sub |
|