正则表达式怎么在EXCEL使用

Question

正则表达式怎么在EXCEL中使用来提取第一个数字。如
左列是
DG_CA2546_D1
DG_CA2546_E1
DG_HoJ9509_A1
DG_HoJ9509_B1
右列能生成
DGRNC02
DGRNC02
DGRNC09
DGRNC09

Answer 1

工具/材料：Microsoft Office Excel2016版，Excel表格。 

1、首先选中Excel表格，双击打开。 

2、然后在该界面中，选中要使用正则表达式的单元格。

3、再者在该界面中，公式栏中输入正则表达式的公式“=RegexString(A1,"([\d]+)",1)”。

4、其次在该界面中，单元格里显示正则表达式结果。

5、继续在该界面中，选中单元格，向下拖动。 

6、最后在该界面中，成功显示正则表达式结果。

Answer 2

1.新建一个空白工作簿，在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境，如下图所示：

2.在“代码窗口“中复制粘贴以下代码：

Sub RegTest()

    '定义正则表达式对象

    Dim oRegExp As Object

    '定义匹配字符串集合对象

    Dim oMatches As Object

    '创建正则表达式

    '定义要执行正则查找的文本变量

    Dim sText As String

    sText = "这是v一个正则表达式b的范例程序a代码"

    Set oRegExp = CreateObject("vbscript.regexp")

    With oRegExp

        '设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项

        .Global = True

        '设置是否区分大小写，True表示不区分大小写, False表示区分大小写

        .IgnoreCase = True

        '设置要查找的字符模式

        .Pattern = "[\u4e00-\u9fa5]+"

        '判断是否可以找到匹配的字符，若可以则返回True

        MsgBox .Test(sText)

        '对字符串执行正则查找，返回所有的查找值的集合，若未找到，则为空

        Set oMatches = .Execute(sText)

        '把字符串中用正则找到的所有匹配字符替换为其它字符

        MsgBox .Replace(sText, "")

    End With

    Set oRegExp = Nothing

    Set oMatches = Nothing

End Sub

如下图所示:

3.执行以上代码，将把 sText = "这是v一个正则表达式b的范例程序a代码" 变量中的中文字符全部删除，将只返回"vba"3个英文字符，如下图所示。其中的.Pattern = "[\u4e00-\u9fa5]+"表示匹配所有中文字符，Pattern属性是正则表达式对象的核心，当需要执行其它查找替换时一般都只需更改Pattern属性即可。

4.一些常见的正则Pattern如下：

[0-9]表示匹配任意一个数字

[a-zA-Z]表示匹配任意一个英文字母

[\u4e00-\u9fa5]表示匹配任意一个中文字符。

Answer 3

=IF(MID(A1,6,1)="2","DGRNC02",IF(MID(A1,7,1)="9","DGRNC09","其他"))追问

并不是只有DGRNC02、DGRNC09两种情况。
而且第一个数字出现的位置并非固定的。
右列表示的是“DGRNC0”加左列的第一个数字

追答

给你一个通用公式
=LEFT(MID(A1,MIN(FIND(LEFT(ROW($1:$11)-2),A1&-1/17)),MATCH(,-MID(A1,ROW(A:A),1))),1)数组公式。
可以查出数据 左列的第一个数字
然后你加上“DGRNC0” OK

本回答被提问者采纳

Answer 4

不用写vba和公式了，用正则式从Excel中提取信息，使用这个方法，如下图：

如果还需要测试自己写的正则式是否正确，点击测试一下我的正则式。

工具地址：www.excelfb.com 点击： （按正则式）拆分一列（单元格）为多列（提取单元格数字等）