返回列表 上一主題 發帖

如何可以做到找取數字

如何可以做到找取數字

請問能否做到?
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
煩請師兄大大協助,謝謝!

回復 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?
一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

本帖最後由 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
複製代碼

TOP

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

TOP

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

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題