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

[µo°Ý] ¸Uµ§¸ê®Æ§Ö³t¤ñ¹ï³B²z

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2017-10-10 02:59 ½s¿è

¦^´_ 1# bioleon69
VLOOKUP.rar (349.65 KB)

Sheet1!B1
=IF($A1="","",VLOOKUP($A1,Sheet1!$B:$H,COLUMN(),))
¥k©Ô¦ÜGÄæ¡A¦b¥k¤U¨¤ªº¤p"+"§Ö³tÂI2¦¸¡A©Î¤U©Ô¶ñº¡¡C

Sheet2!B:G¦³«Ü¦hÅã¥Ü#N/AªºÀx¦s®æ¡A
Sheet2! AÄ檺¬Y¨Ç¥N¸¹¡A¬O¤£¬OSheet1!BÄæ¨S¦³¡H
Sheet1!¤Ó¦hµ§¡A¨S¥J²Ó¬Ý¡C

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2017-10-10 19:11 ½s¿è

¦^´_ 4# bioleon69
Sheet1=¸ê®Æ®w¡ASheet2­n¤ñ¹ïªºAÄæ¸ê®Æ¤@¯ë³£À³¸Ó¬O¥H¤â°Ê¤è¦¡¶ñ¤Jªº¡A¦]¦¹¡A¬O¤£¬O¥ý±NSheet2!A¤£­n¤ñ¹ïªº¦C¡A¥ý¦Û¦æ²¾°£«á¦A°õ¦æ¥¨¶°¡C

©Î¦b²Ä¤@¦¸°õ¦æ¥¨¶°«á¡A±NSheet2¦³Åã¥Ü#N/Aªº¦C²¾°£(µ§¼Æ¤£¦h¡A¥B¥u­n²¾°£¤@¦¸¡AÀ³¸Ó¤£·|«Ü³Â·Ð)¡A¦A°õ¦æ¥¨¶°¤@¦¸§Y¥i¡C

§Ú¤£À´ªÑ²¼¡A¤£ª¾¨ä¥N¸¹¦³¨S¦³¯S©wªº«¬ºA?¦³ªº¸Ü¡A¥i¥H¥Î"¨ú¥N"©Îµ{¦¡²¾°£«D«ü©w«¬ºAªºSheet1ªº¦C
¥H¤W¶È¨Ñ°Ñ¦Ò

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD