Hsieh

¦^´_ 2# happycoccolin
²Ä¤@­Ó°ÝÃD
B1=MID(A1,FIND("(",A1)+1,FIND(")",A1)-FIND("(",A1)-1)
²Ä¤G­Ó°ÝÃD´N¤£À´§Aªº¥Øªº¬°¦ó¤F
Sheet1ªºBÄæ¬O¦h²Õ¦r¦ê¡A¦ý¤S¥u¤ñ¹ï¤@²Õ¤å¦r¡A³o¼Ë»¡ªk¦³ÂI¼Ò½k
½Ð§â¹ê¨ÒªþÀÉ»¡©ú

Hsieh

¦^´_ 5# happycoccolin


   

¤U¸ü (30.61 KB)

2012-7-2 18:10

Hsieh

¦^´_ 8# jackson7015


    =MID(SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))),FIND(";",SUBSTITUTE(A1,"-",";",LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))))+1,255)

Hsieh

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

Hsieh

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

Hsieh

¦^´_ 15# happycoccolin

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

   

¤U¸ü (162.69 KB)

2012-9-5 22:23

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