Re: [算表] 如何用EXCEL公式函數挑字

[Catbert (I am Leo)]

※ 引述《znlin (帥貓)》之銘言：
: 軟體:excel
: 版本:2002
:          原始資料           想要結果
:         1254MCL23             MCL
:         21HM26698             HM
: 請教各位大大該如何撰寫以一個EXCEL公式函數來達到上面想要的結果？
: 或是寫巨集？.....但是沒寫過，不知道該怎麼作

請在Excel的Visual Basic編輯器中貼上下面程式碼，就可以使用自訂函數嚕

Public Function MidText(InString As String)

Dim i As Integer
Dim outString As String
outString = ""

For i = 1 To Len(InString)
    If IsNumeric(Mid(InString, i, 1)) <> True Then
        outString = outString & Mid(InString, i, 1)
    End If
Next

MidText = outString

End Function

----
備註：
把上面<> 改成 =
就可以找出一串文字中的數字嚕XD

--

  沒事多灌水...

    多灌水沒事...

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 221.169.7.130
→ soyoso: Function getText$(str$)
→ soyoso: Dim i As Byte
→ soyoso: For i = 0 To 9
→ soyoso:     str = Replace(str, i, "")
→ soyoso: Next
→ soyoso: getText = str
→ soyoso: End Function