excel 正则表达式（excel中使用正则表达式）

：暂无数据 2026-09-16 11:40:06 ：3

各位老铁们，大家好，今天由我来为大家分享excel 正则表达式，以及excel中使用正则表达式的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

本文目录

excel中使用正则表达式
excel如何匹配正则表达式并标色
Excel 正则表达式怎样声明变量

excel中使用正则表达式

Function JiSuan(Rng As Range) As Single
    Dim Reg As New RegExp
    Dim R As String
    On Error GoTo ErrHand
    R = (Rng)
    Reg.Global = True
    Reg.Pattern = "|m|M"
    R = Reg.Replace(R, "")
    Reg.Pattern = "×"
    R = Reg.Replace(R, "*")
    RegSZCC R
    RegSZJJ R
    JiSuan = Round(CSng(R), 4)
    Set Reg = Nothing
    Exit Function
ErrHand:
    JiSuan = Err.Description
End Function
Sub RegSZCC(ByRef S As String)
    Dim Reg As New RegExp
    Dim MS
    Dim R As String
    Reg.Pattern = "(\d+\.{0,1}\d*)(\*|\\)(\d+\.{0,1}\d*)"
    Set MS = Reg.Execute(S)
    If MS.Count = 1 Then
        If MS(0).SubMatches(1) = "\" Then
            R = Format(CSng(MS(0).SubMatches(0)) / CSng(MS(0).SubMatches(2)), "0.00000")
        Else
            R = Format(CSng(MS(0).SubMatches(0)) * CSng(MS(0).SubMatches(2)), "0.00000")
        End If
        S = Reg.Replace(S, R)
        RegSZCC S
    End If
End Sub
Sub RegSZJJ(ByRef S As String)
    Dim Reg As New RegExp
    Dim MS
    Dim R As String
    Reg.Pattern = "(\d+\.{0,1}\d*)(\+|\-)(\d+\.{0,1}\d*)"
    Set MS = Reg.Execute(S)
    If MS.Count = 1 Then
        If MS(0).SubMatches(1) = "+" Then
            R = Format(CSng(MS(0).SubMatches(0)) + CSng(MS(0).SubMatches(2)), "0.00000")
        Else
            R = Format(CSng(MS(0).SubMatches(0)) - CSng(MS(0).SubMatches(2)), "0.00000")
        End If
        S = Reg.Replace(S, R)
        RegSZJJ S
    End If
End Sub

EXCEL中调用方法

B1=jisuan(A1)

excel如何匹配正则表达式并标色

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 = "+"

’判断是否可以找到匹配的字符，若可以则返回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 = "+"表示匹配所有中文字符，Pattern属性是正则表达式对象的核心，当需要执行其它查找替换时一般都只需更改Pattern属性即可。

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

表示匹配任意一个数字

表示匹配任意一个英文字母

表示匹配任意一个中文字符

Excel 正则表达式怎样声明变量

int preg_match ( string $pattern , string $subject )
string $pattern 是一个字符串，所以可以先计算出这个串存入一个变量里
$star=’a’;
$stop=’c’;
$info=’a1b2c3’;
$pattern=’/’.$star.’(.+?)’.$stop.’/’;
preg_match($pattern,$info,$result);
print_r($result);

关于excel 正则表达式和excel中使用正则表达式的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

excel 正则表达式（excel中使用正则表达式）