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

[µo°Ý] ½Ð°Ý¤@¤U¦p¦óÂ^¨úA1Àx¦s®æ¤¤¬A¸¹¤ºªº¼Æ­È,¨Ã±N¤§Åã¥Ü¦bB1Àx¦s®æ©O?

¦^´_ 10# jackson7015

¦n¹³¬O¦b¦Ò¸Õ­ò
=LEFT(MID(SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))),FIND(";",SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))))+1,255),LEN(A1)-(FIND(";",SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))))+1))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

©êºp¡A¤@ª½³Â·ÐHsieh ª©¤j
¦]¬°·Q­n¤F¸Ñ¡A³oºØÃþ¦ü°ÝÃDªº¬ÛÃö¤£¦P±Æ¦CÂ^¨ú¡A©Ò¥H¤~°Ý¤F¬Û¦üªº°ÝÃD
¥Ø«e¤TºØ³£¥i¥¿±`°õ¦æ¹B¥Î
·PÁÂHsieh ª©¤jªº¼ö¤ßÀ°¦£

TOP

¦^´_ 12# jackson7015
³oºØÃþ¦ü°ÝÃD¡A¨ä¹ê³£¥i¥H¦Û¤v«ä¦Ò¡A§A·|µo²{³o­Ó°ÝÃD¤¤©Ò¥Îªº¨ç¼Æ¤£´N¬OMID¨ç¼Æ¤¤¡AÂ^¨úªø«×ªºÅܤÆ
³Ìªìªº§Þ¥©¥u¦³SUBSTITUTE¨Ó±N³Ì«á¤@­Ó¤À¹j²Å¸¹¥Î¯S©w¦r¤¸¨ú¥N¡A±o¥H§PÂ_©Ò»ÝÂ^¨úªº¤ù¬q
±µ¤U¨ÓªºÅܧ㣬OMID©ÎLEFT©ÎRIGHT¨ÓÂ^¨ú³¡¤À¦r¦ê
À³¸Ó¹ý©³¤F¸Ñ¾ã­Ó¤½¦¡ªº·N¸q¤~¯à¥[¥H¹B¥Î¡C
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂHsiehª©¤jªº«ü¾É
¤p§Ìªº¨ç¼Æ¹B¥ÎÁÙ¦b°_¨B¾Ç²ß¶¥¬q¡A¬Û¦P¨ç¼Æ¦h­n°Ñ¦Ò¦hºØ¬Û¦ü¹B¥Î¨ÓºCºC¸ÑªR
·|ºCºC§ï¶i¾Ç²ßºA«×¡F·P¿EHsiehª©¤j¤£§[«ü±Ð

TOP

¦^´_ 6# Hsieh


Hsieh ¤j¤j½Ð±Ð¤@¤U~
¥Ø«e§Ú¨Ï¥Î¤W¹J¨ì¤@­Ó°ÝÃD,§Q¥ÎBÄæ¨Ó°µ¤ñ¹ï,¦ý¬O­Y¤ñ¹ï¨ì¨Ò¦p¦r¤¸¬°:IR10000 & R10000,·|¥X²{²V²cªº²{¶H~¥u·|§ì¨ìIR10000ªº­È,½Ð°Ý­n«ç»ò§ï©O?ÁÂÁÂ!!

Sheet1
A                                       B                   C
09-87654321        IR10000        12-34567890        
09-87654322        R10000          12-34567890 (À³¸Ó­n§ì¨ì12-34567891)        
09-87654323        D1               

Sheet2
A                                       B
12-34567890        R10000,R10001
12-34567891        IR10000
12-34567892        C2,D3

TOP

¦^´_ 15# happycoccolin

¼Ò½k¤ñ¹ïµLªk¹F¦¨¨º´N¥Î¦Û©w¸q¨ç¼Æ¸Õ¸Õ

   
  1. Function Dictionary(key As Range, item As Range, crt As String)
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For i = 1 To key.Count
  4.   For Each a In Split(key(i), ",")
  5.     d(CStr(a)) = item(i).Value
  6.   Next
  7. Next
  8. Dictionary = d(CStr(crt))
  9. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 16# Hsieh


HSIEN¤j¤j§Ú¸Õ¹L¤FÁÂÁ±z!!ÁÂÁÂ!

¥u¬OVBA§¹¥þ¤£¼ô,ÁÙÆZ·Q·d²M·¡¨ÓÀs¥h¯ßªº~@@

¬O­n¦hªáÂI®É¶¡¬ãŪ¤F

TOP

¦^´_  happycoccolin
Hsieh µoªí©ó 2012-7-2 18:10



½Ð°Ý³oºØ¼Ò½k¤ñ¹ï­n¦p¦ó¥ÎVBA¼g¥X¨Ó
§Úªº°ÝÃD¨ä¹ê¥Î³o­Ó¨ç¼Æ¯à¸Ñ¨M, ¤£¹L§ÚÁÙ¬O·Qª¾¹DVBA­n«ç»ò¼g

TOP

B1=MID(A1,FIND("(",A1)+1,FIND(")",A1)-FIND("(",A1)-1)
C5=IF(FIND(B5,Sheet2!B1)>0,Sheet2!A1,"")
lmh

TOP

¥»©«³Ì«á¥Ñ shuwen0219 ©ó 2015-9-18 12:38 ½s¿è

{1187632393755295}
[T200P1275298438942244]       
½Ð°Ý¦P¤@Äæùتº¸ê®Æ¦³³o¨âºØ,§Ú­n¨ú¥X¤¤¶¡ªº¼Æ­Èªº­n«ç»ò°µ?
¥Ñ«áºâ¨ú16½X¼Æ¦r.

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD