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

zy128128 · 发表于 2011-3-25 16:12

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 · 发表于 2011-3-25 16:19

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

wanghaiqn1957 · 发表于 2011-3-25 16:20

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 · 发表于 2011-3-25 16:21

效果：
标题
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 · 发表于 2011-3-25 16:27

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 · 发表于 2011-3-25 16:28

可以再改一下的。
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 · 发表于 2011-3-25 16:32

如果需要的结果是汉字，不留字母，数字
那么用下面的：
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 · 发表于 2011-3-25 16:43

简些：
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 · 发表于 2011-3-25 16:50

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

AVEL · 发表于 2011-3-25 16:53

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

		自动登录	找回密码
密码			免费注册

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

回复 4楼 wanghaiqn1957 的帖子

回复 5楼 Zamyi 的帖子