恳求用VBA提取数字、字母、文字的代码

win2009

厉害...................

lhw78535

Zamyi 发表于 2011-10-28 11:12
改下 .Pattern = a(p) 为
If IsNumeric(p) Then .Pattern = a(p) Else .Pattern = p
鱼和熊掌便可兼得了 ...

的确不错，学习了！

cbtaja

lhw78535 发表于 2011-10-28 16:20
是的，我明白了，返回的每个字符都用特定的分隔符分开。谢谢你。

可以是每个字符都用分隔符分开，也可以是几个连续的字段之间用分隔符分开。就像我在楼上举例说明的那样，2与6700之间，只有1个分隔符；如果要让每个字符之间都有分隔符，成为“2、6、7、0、0”，则把正则表达式最后的那个“+”号去掉即可。

hzchenp

cbtaja 发表于 2011-10-27 20:20
你想求的都有：既是代码，又是函数，呵呵——用代码编写的自定义函数，——使用正则表达式的强大功能，你可 ...

很强的函数啊，学习了！

东亚五金

这么厉害啊都是牛人

tianyk

都是高手！！！

asdw123321

向你学习！

清风幽闲

Sub g()
lastr = Cells(Rows.Count, 1).End(3).Row
For myrow = 2 To lastr
    For n = 1 To Len(Cells(myrow, 1))
        t = Mid(Cells(myrow, 1), n, 1)
        If t Like "[0-9]" Then
            str_sz = str_sz & t
        ElseIf t Like "[A-Za-z]" Then
            str_zm = str_zm & t
        ElseIf Asc(t) < 0 Then
            str_wz = str_wz & t
        Else
            str_bd = str_bd & t
        End If
    Next n
    Cells(myrow, "b") = str_sz
    Cells(myrow, "c") = str_zm
    Cells(myrow, "d") = str_wz
    Cells(myrow, "e") = str_bd
    str_sz = "": str_zm = "": str_wz = "": str_bd = ""
Next myrow
End Sub

清风幽闲

Sub g()
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
lastr = Cells(Rows.Count, 1).End(3).Row
For n = 2 To lastr
    reg.Pattern = "[\u4e00-\u9fa5]+"
    Set k = reg.Execute(Cells(n, 1))
    For Each rngk In k
        t = t & rngk & " "
    Next rngk
    Cells(n, "d") = t
    t = ""
    reg.Pattern = "[0-9]+"
    Set k = reg.Execute(Cells(n, 1))
    For Each rngk In k
        t = t & rngk & " "
    Next rngk
    Cells(n, "b") = t
    t = ""
    reg.Pattern = "[A-Za-z]+"
    Set k = reg.Execute(Cells(n, 1))
    For Each rngk In k
        t = t & rngk & " "
    Next rngk
    Cells(n, "c") = t
    t = ""
    reg.Pattern = "[^\u4e00-\u9fa5A-Za-z0-9]+"
    Set k = reg.Execute(Cells(n, 1))
    For Each rngk In k
        t = t & rngk & " "
    Next rngk
    Cells(n, "e") = t
    t = ""
Next n
End Sub

五指山888

清风幽闲 发表于 2013-9-23 11:20
Sub g()
lastr = Cells(Rows.Count, 1).End(3).Row
For myrow = 2 To lastr

老师好:假如保留数字小数点可以吗？譬如，12.8亿，分离成12.8和亿，有办法吗？谢谢帮助！没有小数点，这个数字也就没有运用价值了。