作者Catbert (I am Leo)
看板Office
标题Re: [算表] 如何用EXCEL公式函数挑字
时间Mon Aug 6 22:39:21 2007
※ 引述《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
1F：→ soyoso: Function getText$(str$) 01/12 01:11
2F：→ soyoso: Dim i As Byte 01/12 01:11
3F：→ soyoso: For i = 0 To 9 01/12 01:12
4F：→ soyoso: str = Replace(str, i, "") 01/12 01:12
5F：→ soyoso: Next 01/12 01:12
6F：→ soyoso: getText = str 01/12 01:12
7F：→ soyoso: End Function 01/12 01:12