標題: 如何可以做到找取數字 [打印本頁]

---

作者: bully    時間: 2018-9-6 04:09     標題: 如何可以做到找取數字

請問能否做到?
A1格內有數字串  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,會帶出C1=108
當B2=B,會帶出C2=7
當B3=D,會帶出C3=19
煩請師兄大大協助,謝謝!

---

作者: faye59    時間: 2018-9-6 06:57

回復 1# bully


    我第一段就看不懂了...可以解釋一下嗎...
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?是指B1儲存格填入A?C1就會到顯示108?

---

作者: hcm19522    時間: 2018-9-6 10:01

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

---

作者: ikboy    時間: 2018-9-6 11:26

本帖最後由 ikboy 於 2018-9-6 11:30 編輯

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

複製代碼

---

作者: 准提部林    時間: 2018-9-6 13:14

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

---

作者: bully    時間: 2018-9-7 14:40

做到了,謝謝各位大大!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)