这段代码我不知道用哪个表达式，请教.

zy128128

Sub yy()
    Dim RegEx, Myr&, x&, a, b, bb
    Set RegEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
    RegEx.Global = True '设置全局可用
    RegEx.Pattern = "[^!-~]" '去汉字样式
    Myr = [a65536].End(xlUp).Row
    For x = 1 To Myr
        a = Cells(x, 1)
        b = RegEx.Replace(a, "*") '把匹配样式的字符用*替换
        bb = Replace(b, "*", "")  '把*用""替换
        Cells(x, 2) = bb
    Next x
    Set RegEx = Nothing
End Sub

eqzh

正则方面知识还是空白，留个记号

wanghaiqn1957

Function regexptest(patrn, strng)
  Dim regex, match, matches                         ' 建立变量
  Set regex = CreateObject("VBScript.RegExp")       ' 建立正则表达式
  regex.Pattern = patrn                             ' 设置模式
  regex.ignorecase = True                           ' 设置是否区分字符大小写
  regex.Global = True                               ' 设置全局可用性
    regexptest = regex.Replace(strng, "")
      
   
End Function

wanghaiqn1957

效果：
标题       
4914059康明斯调节杆        4914059
3820320康明斯旁通阀柱塞        3820320
3251635康明斯接头        3251635
3326142康明斯张紧轮支架        3326142
S  1031康明斯弯管接头        S1031
3022184康明斯防护罩        3022184
柴油发电机,康明斯6BT发动机JFZ130-4发电机        ,6BTJFZ130-4
康明斯6BT发动机JFZ130-4充电发电机        6BTJFZ130-4
柴油发电机,康明斯6BT发动机JFZ130-4充电机        ,6BTJFZ130-4
陆用4BT3.9进口康明斯发动机维修        4BT3.9
4061156康明斯支架        4061156
3041116康明斯机油尺        3041116
1000962康明斯放油接头        1000962
136983康明斯弯管接头        136983
3633045康明斯管路接头        3633045
3655924康明斯防尘盖        3655924
供应油田用4BT原装康明斯柴油机大修        4BT
3627702康明斯T型接头        3627702T
sq0122（柜台）        sq0122
CH-01黑橡        CH-01

把这一列的数字和字母提出来

Zamyi

Sub yy()
Dim RegEx, Myr&, x&, a, b, bb
Set RegEx = CreateObject("VBSCRIPT.REGEXP")
RegEx.Global = True
RegEx.Pattern = "[\u4e00-\u9fff\,（）]+"
Myr = [a65536].End(xlUp).Row
For x = 1 To Myr
a = Cells(x, 1)
Cells(x, 2) = RegEx.Replace(a, "")
Next x
Set RegEx = Nothing
End Sub

[ 本帖最后由 Zamyi 于 2011-3-25 16:29 编辑 ]

AVEL

可以再改一下的。
Sub yy()
    Dim RegEx, Myr&, x&, a, b, bb
    Set RegEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
    RegEx.Global = True '设置全局可用
    RegEx.Pattern = "[^A-Za-z0-9]" '"[^!-~]" '去汉字样式
    Myr = [a65536].End(xlUp).Row
    For x = 1 To Myr
        a = Cells(x, 1)
        b = RegEx.Replace(a, "") '把匹配样式的字符用*替换
        Cells(x, 2) = b
    Next x
    Set RegEx = Nothing
End Sub

AVEL

如果需要的结果是汉字，不留字母，数字
那么用下面的：
Sub yy()
    Dim RegEx, Myr&, x&, a, b, bb
    Set RegEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
    RegEx.Global = True '设置全局可用
    RegEx.Pattern = "[A-Za-z0-9-\s]" '"[^!-~]" '去汉字样式
    Myr = [a65536].End(xlUp).Row
    For x = 1 To Myr
        a = Cells(x, 1)
        b = RegEx.Replace(a, "") '把匹配样式的字符用*替换
        Cells(x, 2) = b
    Next x
    Set RegEx = Nothing
End Sub

Zamyi

简些：
Sub yy()
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "[^!-+--~]+"
For Each x In Range("a2", [a65536].End(3))
x(1, 2) = Trim(.Replace(x, " "))
Next x
End With
End Sub

zy128128

您给上传一个附件我看看吧 谢谢

AVEL

Zamyi兄换头像了。 美女变小帅哥？