如何用excel中的VBA的正则表达式提取出字符串?
发布网友
发布时间：2022-04-29 22:18
共5个回答
懂视网
时间：2022-04-23 09:49
在JS的正则零宽断言匹配中，只支持前瞻匹配，不支持后瞻。这就尴尬了，因为在业务当中，我们大多时候是知道了要目标数据的前后缀字符串，但是并不想连同前后缀一起获取。
为了模拟后瞻，我想，要不就用笨方法，先将前后缀字符串一同提取，然后再讲前后缀字符串一同replace为空字符串。于是就有了下面这个简单的方法，但确实很实用：
示例代码如下
// 提取固定字符之间的字符串
function getInnerString(source, prefix, postfix) {
var regexp = new RegExp(encodeReg(prefix) + '.+' + encodeReg(postfix), 'gi');
var matches = String(source).match(regexp);
var formatedMatches = _.map(matches, value => {
return value
.replace(prefix, '')
.replace(postfix, '');
});
return formatedMatches;
}
//转义影响正则的字符
function encodeReg(source) {
return String(source).replace(/([.*+?^=!:${}()|[]/\])/g,'\$1');
}使用：
var a = '让我们荡起双桨吧'; getInnerString(a, '让我们', '吧'); // ['双桨'] var b = '老总和不在办公室，有事请留言给李秘书'; getInnerString(b, '有事请留言给', ''); // ['李秘书']
相信看了本文案例你已经掌握了方法，更多精彩请关注Gxl网其它相关文章！
推荐阅读：
容易产生错误的js手机号码验证
在php与JS里怎么用正则匹配汉字
热心网友
时间：2022-04-23 06:57
1、首先打开需要编辑的Excel表格，进入到编辑页面中。
2、然后点击打开主菜单栏开发工具中的“Visual Basic”选项。
3、还可以鼠标右键单击工作标签，选择打开“查看代码”。
4、然后在弹出来的窗口中点击输入：
Function REFIND(str, re)
Dim Reg As New RegExp
With Reg
.Global = True
.Pattern = re
Set matchs = .Execute(str)
For Each Match In matchs
y = y & " " & Match
Next
End With
'MsgBox y
REFIND = y
End Function5、然后运行就可以得到结果了。
热心网友
时间：2022-04-23 08:15
Dim oRegExp As Object
Dim oMatches As Object
Dim sText As String
sText = "柴塘河节制闸3300×4960平面钢闸门"
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Pattern = "\D+(\d+)\D+(\d+)\D+"
Set oMatches = .Execute(sText)
Debug.Print oMatches(0).submatches(0) '第一个数
Debug.Print oMatches(0).submatches(1) '第二个数
End With
Set oRegExp = Nothing
Set oMatches = Nothing
End Sub
程序中sText字符串来源可以从单元格赋值，
Debug.Print可以将两个数改为赋值给两个变量。
追问假设两个变量分别赋值给BBB与HHH，应该如何完整的写代码？追答Debug.Print oMatches(0).submatches(0) '第一个数
Debug.Print oMatches(0).submatches(1) '第二个数
改成：
BBB=oMatches(0).submatches(0)
HHH=oMatches(0).submatches(1)
就行了，
可以对数据进行计算，如：
乘积=BBB*HHH
热心网友
时间：2022-04-23 09:50
软件版本：Office2007
方法如下：
1.利用正则表达式，提取A列的数字，并对数字求和：
2.Alt+F11，输入代码如下：
3.F5执行代码，返回Excel，得到结果：
热心网友
时间：2022-04-23 11:41
s = "柴塘河节制闸3300×4960平面钢闸门"
Set regxp = CreateObject("vbscript.regexp")
With regxp
.Global = True
.Pattern = "\d+"
For Each m In .Execute(s)
Debug.Print m
Next
End With
End Sub追问具体的代码呢？
追答Sub t()
s = "柴塘河节制闸3300×4960平面钢闸门"
Set regxp = CreateObject("vbscript.regexp")
With regxp
.Global = True
.Pattern = "\d+"
For Each m In .Execute(s)
Debug.Print m
Next
End With
End Sub
