我試圖讓自己成爲一個可以自動查找值的excel函數。但是我現在一無所有就被卡住了。文字是這樣的,但總是不一樣的長度和結構。Excel查找單元格中的寬度高度深度
電壓:12-36V 功率:12W 夜光:800流明 IP等級:IP67 尺寸:寬度72,高度98毫米,深度41毫米 LED:4x3W
我需要從A1出口至B1數字寬度(也可以是72毫米或72),C1高度等。但我堅持使用的功能。
誰能幫我?
我試圖讓自己成爲一個可以自動查找值的excel函數。但是我現在一無所有就被卡住了。文字是這樣的,但總是不一樣的長度和結構。Excel查找單元格中的寬度高度深度
電壓:12-36V 功率:12W 夜光:800流明 IP等級:IP67 尺寸:寬度72,高度98毫米,深度41毫米 LED:4x3W
我需要從A1出口至B1數字寬度(也可以是72毫米或72),C1高度等。但我堅持使用的功能。
誰能幫我?
的功能。如果你只是想要一個公式試試這個:
=MID(A1,FIND("Width ",A1,1)+LEN("Width "),FIND(",",A1,FIND("Width ",A1,1))-FIND("Width ",A1,1)-LEN("Width "))
的術語「寬度」的公式搜索和提取的所有字符,直到下一個 」,」 。
謝謝!這很好! –
UDF。
打開VBA編輯器(ALT + F11)。
插入 - >模塊
複製粘貼以下代碼:
Function Regex(Cell, Search)
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
RE.Pattern = "(" & Search & " \d+?\w+)"
RE.Global = True
RE.IgnoreCase = True
Set Matches = RE.Execute(Cell)
If Matches.Count <> 0 Then
Regex = Matches.Item(0).submatches.Item(0)
End If
End Function
保存工作簿作爲macroactivated工作簿。
使用像=Regex(A1,"height")
你嘗試過什麼嗎?發佈一個公式? –
堆棧溢出不是一個代碼寫入服務,它預計你試圖自己編碼。我建議你對你的問題做一些研究(嘗試上面的搜索框),並嘗試自己編寫一些代碼。如果/當您遇到任何與您的代碼有關的問題時,請再次提問並解釋您所嘗試的內容,以及爲什麼它不適合您。最重要的是包括[最小,完整和可驗證示例](http://stackoverflow.com/help/mcve)。 –