¦p¦ó¥i¥H°µ¨ì§ä¨ú¼Æ¦r

bully

½Ð°Ý¯à§_°µ¨ì?
A1®æ¤º¦³¼Æ¦r¦ê  A=108=0;B=7=0;C=218=0;D=19=0;E=18=0;F=123=0;H=43=0;I=10=1;J=1140=0;K=618=0;L=486=0;M=43=0
·íB1=A,·|±a¥XC1=108
·íB2=B,·|±a¥XC2=7
·íB3=D,·|±a¥XC3=19
·Ð½Ð®v¥S¤j¤j¨ó§U,ÁÂÁÂ!

faye59

¦^´_ 1# bully


    §Ú²Ä¤@¬q´N¬Ý¤£À´¤F...¥i¥H¸ÑÄÀ¤@¤U¶Ü...
A=108=0;B=7=0;C=218=0;D=19=0;E=18=0;F=123=0;H=43=0;I=10=1;J=1140=0;K=618=0;L=486=0;M=43=0
·íB1=A?¬O«üB1Àx¦s®æ¶ñ¤JA?C1´N·|¨ìÅã¥Ü108?

hcm19522

http://blog.xuite.net/hcm19522/twblog/585313918

ikboy

Formula
=--MID($A$1,LEN(B1)+1 + FIND(B1&"=",$A$1),FIND("=",$A$1,LEN(B1)+1 + FIND(B1&"=",$A$1))-(LEN(B1)+1 + FIND(B1&"=",$A$1)))


UDF

1. Function zz(s$, rng As Range)
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\d[^\dA-Z=]+"
   
4.     .Global = True
   
5.     a = Split(.Replace(rng.Value, ""), "=")
   
6.     For i = 0 To UBound(a) - 1
   
7.         If a(i) = s Then t = True: Exit For
   
8.     Next
   
9. End With
   
10. If t Then zz = Val(a(i + 1)) Else zz = "No match found"
    
11. End Function

½Æ»s¥N½X

­ã´£³¡ªL

=MID(LEFT(A$1,FIND("=",A$1,FIND(B1,A$1)+2)-1),FIND(B1,A$1)+2,99)

bully

°µ¨ì¤F,ÁÂÁ¦U¦ì¤j¤j!!