2016-12-02 94 views
0

我試圖讓自己成爲一個可以自動查找值的excel函數。但是我現在一無所有就被卡住了。文字是這樣的,但總是不一樣的長度和結構。Excel查找單元格中的寬度高度深度

電壓:12-36V 功率:12W 夜光:800流明 IP等級:IP67 尺寸:寬度72,高度98毫米,深度41毫米 LED:4x3W

我需要從A1出口至B1數字寬度(也可以是72毫米或72),C1高度等。但我堅持使用的功能。

誰能幫我?

+0

你嘗試過什麼嗎?發佈一個公式? –

+0

堆棧溢出不是一個代碼寫入服務,它預計你試圖自己編碼。我建議你對你的問題做一些研究(嘗試上面的搜索框),並嘗試自己編寫一些代碼。如果/當您遇到任何與您的代碼有關的問題時,請再次提問並解釋您所嘗試的內容,以及爲什麼它不適合您。最重要的是包括[最小,完整和可驗證示例](http://stackoverflow.com/help/mcve)。 –

回答

0

的功能。如果你只是想要一個公式試試這個:

=MID(A1,FIND("Width ",A1,1)+LEN("Width "),FIND(",",A1,FIND("Width ",A1,1))-FIND("Width ",A1,1)-LEN("Width ")) 

的術語「寬度」的公式搜索和提取的所有字符,直到下一個 」,」 。

+0

謝謝!這很好! –

0

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")

enter image description here