提取单元格内的汉字和英文和数字的正则表达式该如何写呢？

oliveching

提取单元格内的汉字和英文和数字的正则表达式该如何写呢？知道提取汉字的正则 是[\u4e00-\u9fa5]+

liulang0808

d+,[a-zA-Z]+

jyhxr

liulang0808 发表于 2019-2-15 16:00
d+,[a-zA-Z]+

\d+,[a-zA-Z]+

oliveching

谢谢老师！

oliveching

老师，\d+,[a-zA-Z]+表达式会包含符号，可我只需要汉字+字母+数字其他都不要Sub 提取汉字_字母_数字()
Dim regEx As Object
Dim i As Integer

Set regEx = CreateObject("VBSCRIPT.REGEXP")
regEx.Pattern = "\d+,[a-zA-Z]+"
regEx.IgnoreCase = True
regEx.Global = True
For i = 1 To ActiveSheet.UsedRange.Rows.Count

    Cells(i, 5).Value = regEx.Replace(Cells(i, 1), "")
Next i
Set regEx = Nothing
End Sub

oliveching

Sub 提取汉字_字母_数字()
Dim regEx As Object
Dim i As Integer

Set regEx = CreateObject("VBSCRIPT.REGEXP")
regEx.Pattern = "\d+,[a-zA-Z]+"
regEx.IgnoreCase = True
regEx.Global = True
For i = 1 To ActiveSheet.UsedRange.Rows.Count
   
    Cells(i, 5).Value = regEx.Replace(Cells(i, 1), "")
Next i
Set regEx = Nothing
End Sub

liulang0808

[\u4e00-\u9fa5]+\d+[a-zA-Z]+
楼主看看是这个意思吗

oliveching

老师，还是不行啊！你看看我帖子的附件，谢谢！
Sub 提取汉字_字母_数字()
Dim regEx As Object
Dim i As Integer

Set regEx = CreateObject("VBSCRIPT.REGEXP")
regEx.Pattern = "[\u4e00-\u9fa5]+[^\d]+[^\a-zA-Z]+"
regEx.IgnoreCase = False
regEx.Global = True
For i = 1 To ActiveSheet.UsedRange.Rows.Count
   
    Cells(i, 5).Value = regEx.Replace(Cells(i, 1), "")
Next i
Set regEx = Nothing
End Sub

liulang0808

oliveching 发表于 2019-2-15 16:58
Sub 提取汉字_字母_数字()
Dim regEx As Object
Dim i As Integer

楼主还有问题，请上传附件，结合附件内容说明要做什么，怎么做
不然发私信，没有实例也没有用啊。

Kaohsing

oliveching 发表于 2019-2-16 17:43
老师，还是不行啊！你看看我帖子的附件，谢谢！
Sub 提取汉字_字母_数字()
Dim regEx As Object

如果答案是下图红字部分：


代码就是如下代码：