【Excel】如何使用RegexString正则表达式

问题链接：How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops - Stack Overflow

Regular expressions are used for Pattern Matching.

To use in Excel follow these steps:

Step 1: Add VBA reference to "Microsoft VBScript Regular Expressions 5.5"

Select "Developer" tab (I don't have this tab what do I do?)
Select "Visual Basic" icon from 'Code' ribbon section
In "Microsoft Visual Basic for Applications" window select "Tools" from the top menu.
Select "References"
Check the box next to "Microsoft VBScript Regular Expressions 5.5" to include in your workbook.
Click "OK"

Step 2: Define your pattern

Basic definitions:

- Range.

E.g. a-z matches an lower case letters from a to z
E.g. 0-5 matches any number from 0 to 5

[] Match exactly one of the objects inside these brackets.

E.g. [a] matches the letter a
E.g. [abc] matches a single letter which can be a, b or c
E.g. [a-z] matches any single lower case letter of the alphabet.

() Groups different matches for return purposes. See examples below.

{} Multiplier for repeated copies of pattern defined before it.

E.g. [a]{2} matches two consecutive lower case letter a: aa
E.g. [a]{1,3} matches at least one and up to three lower case letter a, aa, aaa

+ Match at least one, or more, of the pattern defined before it.

E.g. a+ will match consecutive a's a, aa, aaa, and so on

? Match zero or one of the pattern defined before it.

E.g. Pattern may or may not be present but can only be matched one time.
E.g. [a-z]? matches empty string or any single lower case letter.

* Match zero or more of the pattern defined before it.

E.g. Wildcard for pattern that may or may not be present.
E.g. [a-z]* matches empty string or string of lower case letters.

. Matches any character except newline \n

E.g. a. Matches a two character string starting with a and ending with anything except \n

| OR operator

E.g. a|b means either a or b can be matched.
E.g. red|white|orange matches exactly one of the colors.

^ NOT operator

E.g. [^0-9] character can not contain a number
E.g. [^aA] character can not be lower case a or upper case A

\ Escapes special character that follows (overrides above behavior)

E.g. \., \\, \(, \?, \$, \^

Anchoring Patterns:

^ Match must occur at start of string

E.g. ^a First character must be lower case letter a
E.g. ^[0-9] First character must be a number.

$ Match must occur at end of string

E.g. a$ Last character must be lower case letter a

Precedence table:

Order  Name                Representation
1      Parentheses         ( )
2      Multipliers         ? + * {m,n} {m, n}?
3      Sequence & Anchors  abc ^ $
4      Alternation         |

Predefined Character Abbreviations:

abr    same as       meaning
\d     [0-9]         Any single digit
\D     [^0-9]        Any single character that's not a digit
\w     [a-zA-Z0-9_]  Any word character
\W     [^a-zA-Z0-9_] Any non-word character
\s     [ \r\t\n\f]   Any space character
\S     [^ \r\t\n\f]  Any non-space character
\n     [\n]          New line

Example 1: Run as macro

The following example macro looks at the value in cell A1 to see if the first 1 or 2 characters are digits. If so, they are removed and the rest of the string is displayed. If not, then a box appears telling you that no match is found. Cell A1 values of 12abc will return abc, value of 1abc will return abc, value of abc123 will return "Not Matched" because the digits were not at the start of the string.

Private Sub simpleRegex()Dim strPattern As String: strPattern = "^[0-9]{1,2}"Dim strReplace As String: strReplace = ""Dim regEx As New RegExpDim strInput As StringDim Myrange As RangeSet Myrange = ActiveSheet.Range("A1")If strPattern <> "" ThenstrInput = Myrange.ValueWith regEx.Global = True.MultiLine = True.IgnoreCase = False.Pattern = strPatternEnd WithIf regEx.Test(strInput) ThenMsgBox (regEx.Replace(strInput, strReplace))ElseMsgBox ("Not matched")End IfEnd If
End Sub

Example 2: Run as an in-cell function

This example is the same as example 1 but is setup to run as an in-cell function. To use, change the code to this:

Function simpleCellRegex(Myrange As Range) As StringDim regEx As New RegExpDim strPattern As StringDim strInput As StringDim strReplace As StringDim strOutput As StringstrPattern = "^[0-9]{1,3}"If strPattern <> "" ThenstrInput = Myrange.ValuestrReplace = ""With regEx.Global = True.MultiLine = True.IgnoreCase = False.Pattern = strPatternEnd WithIf regEx.test(strInput) ThensimpleCellRegex = regEx.Replace(strInput, strReplace)ElsesimpleCellRegex = "Not matched"End IfEnd If
End Function

Place your strings ("12abc") in cell A1. Enter this formula =simpleCellRegex(A1) in cell B1 and the result will be "abc".

Example 3: Loop Through Range

This example is the same as example 1 but loops through a range of cells.

Private Sub simpleRegex()Dim strPattern As String: strPattern = "^[0-9]{1,2}"Dim strReplace As String: strReplace = ""Dim regEx As New RegExpDim strInput As StringDim Myrange As RangeSet Myrange = ActiveSheet.Range("A1:A5")For Each cell In MyrangeIf strPattern <> "" ThenstrInput = cell.ValueWith regEx.Global = True.MultiLine = True.IgnoreCase = False.Pattern = strPatternEnd WithIf regEx.Test(strInput) ThenMsgBox (regEx.Replace(strInput, strReplace))ElseMsgBox ("Not matched")End IfEnd IfNext
End Sub

Example 4: Splitting apart different patterns

This example loops through a range (A1, A2 & A3) and looks for a string starting with three digits followed by a single alpha character and then 4 numeric digits. The output splits apart the pattern matches into adjacent cells by using the (). $1 represents the first pattern matched within the first set of ().

Private Sub splitUpRegexPattern()Dim regEx As New RegExpDim strPattern As StringDim strInput As StringDim Myrange As RangeSet Myrange = ActiveSheet.Range("A1:A3")For Each C In MyrangestrPattern = "(^[0-9]{3})([a-zA-Z])([0-9]{4})"If strPattern <> "" ThenstrInput = C.ValueWith regEx.Global = True.MultiLine = True.IgnoreCase = False.Pattern = strPatternEnd WithIf regEx.test(strInput) ThenC.Offset(0, 1) = regEx.Replace(strInput, "$1")C.Offset(0, 2) = regEx.Replace(strInput, "$2")C.Offset(0, 3) = regEx.Replace(strInput, "$3")ElseC.Offset(0, 1) = "(Not matched)"End IfEnd IfNext
End Sub

Results:

Additional Pattern Examples

String   Regex Pattern                  Explanation
a1aaa    [a-zA-Z][0-9][a-zA-Z]{3}       Single alpha, single digit, three alpha characters
a1aaa    [a-zA-Z]?[0-9][a-zA-Z]{3}      May or may not have preceding alpha character
a1aaa    [a-zA-Z][0-9][a-zA-Z]{0,3}     Single alpha, single digit, 0 to 3 alpha characters
a1aaa    [a-zA-Z][0-9][a-zA-Z]*         Single alpha, single digit, followed by any number of alpha characters</i8>    \<\/[a-zA-Z][0-9]\>            Exact non-word character except any single alpha followed by any single digit

【Excel】如何使用RegexString正则表达式相关推荐

Excel自定义函数使用正则表达式详解
http://www.111cn.net/office/excel/52912.htm 函数ExStr功能,根据正规表达式,替换或判断或提取字符串 '参数 str 源字符串 '参数 Parttern ...
EXCEL中如何使用正则表达式
正则表达式,相信大家都不陌生.但在我们最常用的办公软件EXCEL中,目前没有可直接使用正则表达式的函数(至少10版本的EXCEL没有),那么今天我就分享下如何在EXCEL中自定义正则函数. 一.提需求 ...
Excel中使用正则表达式的方法
简单介绍一下Excel中如何使用正则表达式 1.导入ExcelAPI A:下载ExcelAPI B:打开Excel-文件-工具-加载项,选择ExcelAPI,然后导入xll文件 2.正则表达式样例举 ...
如何在单元格和循环中使用Microsoft Excel中的正则表达式（Regex）
本文翻译自:How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops How can I use ...
使用优雅方式对参数验证进行处理
我们在一般的接口函数开发中,为了安全性,我们都需要对传入的参数进行验证,确保参数按照我们所希望的范围输入,如果在范围之外,如空值,不符合的类型等等,都应该给出异常或错误提示信息.这个参数的验证处理有多 ...
C#正则_取出标签内的内容（非贪婪）
using System.Text.RegularExpressions; /// <summary> /// 执行正则提取出值 /// </summ ...
C# WinForm开发系列 - 开篇
该系列主要整理收集在使用C#开发WinForm程序时候碰到的一系列问题, 平时看到大家主要使用C#来开发Asp.Net应用,这方面的文章也特别多,而关于WinForm的文章相对少很多,而自己对WinF ...
Python简单操作爬取微博热搜榜（表格.xls模式存储）
爬取热搜榜需要重点注意的是: 这里的代码是先划区分类--把标题,链接和点击数划分在一个大的集合里,存储的时候再分开. 注意提取数据的方式soup.select. requests用于将链接转化成htm ...
Hbase之一月速成：Hbase的shell命令
目录一.命令总汇二.需求三.基本操作 1.创建表 2.查看表 3.删除表 1)禁用表 3)删除表四.数据的操作 1.添加数据 2. 获取数据 3.更新数据 4.删除数据 1)删除指定列 2)删 ...

【Excel】如何使用RegexString正则表达式

【Excel】如何使用RegexString正则表达式相关推荐

最新文章

热门文章