[ExcelVBA]提取字符串中数字、中文、英文字符的自定义函数（修正版）
展开全文
本文链接：blog.163/blog/static/123039471200963131959304/
分类：Excel VBA 编程
请根据具体要求编辑宏代码应用。
修正版：
Sub Sample()
' by 2009/7/31
' 数据在第一列(A列)，结果放在第二列(B列)之后
excel数字转字符串函数' 提取数字时设置不带小数点的数值格式防止出现1.21314E+12这种科学记数法
' 设置列宽自动适应数据长度
' 修正全字母时提取得到数字0
' 英文标点不会提取出来的
Dim i As Integer
For i = 1 To WorksheetFunction.CountA(Columns(1))
' 默认为提取数字
Cells(i, 2).NumberFormatLocal = "0_ "
Cells(i, 2).Value = GetNum(Cells(i, 1).Value)
' Cells(i, 2).Value = GetNum(Cells(i, 1).Value, 0)
' 提取中文及中文标点
Cells(i, 3).Value = GetNum(Cells(i, 1).Value, 1)
' 提取字母
Cells(i, 4).Value = GetNum(Cells(i, 1).Value, 2)
Next i
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
End Sub
Function GetNum(Srg As String, Optional n As Integer = False)
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
Select Case n
Case 0
Bol = s Like "#"
' Bol = s Like "[0-9]"
Case 1
Bol = Asc(s) < 0
' 中文为负数，不要用AscB或者AscW
Case 2
Bol = s Like "[a-zA-Z]"
' zA之间不要带半角逗号
Case Else
Exit Function
End Select
If Bol Then MyString = MyString & s
Next i
If MyString <> "" Then _
GetNum = IIf(n = 1 Or n = 2, MyString, Val(MyString))
End Function
Excel中用函数提取字符串中的数字的方法请看另一篇日志：
blog.163/blog/static/1230394712009852119363/

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。