vba 正则表达式用法
Sub Regexp_test(Sht As String, str As String)
On Error Resume Next
Dim regx As Object
Dim arr, brr, mh
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
'此处填入正则表达式
.Pattern = ""
End With
With Sheets(Sht)
arr = .Range("C2:C" & .[A65536].End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
Set mh = regx.Execute(arr(i, 1))
If mh(0).submatches(1) Like "*-*月*" Then
brr(i, 1) = VBA.Mid(mh(0).submatches(1), (VBA.InStr(mh(0).submatches(1), "月") + 1), (VBA.InStr(mh(0).submatches(1), "_") - 1))
ElseIf mh(0).submatches(1) Like "*_*" Then
brr(i, 1) = VBA.Left(mh(0).submatches(1), VBA.InStr(mh(0).submatches(1), "_") - 1)
Else
brr(i, 1) = mh(0).submatches(1)
End If
Next i
End With
On Error GoTo 0
End Sub
最新文章
- DatagramSocket收发UDP数据包
- Android拓展系列(10)--使用Android Studio阅读整个Android源码
- MQTT服务器搭建-mosquitto1.4.4安装指南
- win7下安装配置tomcat,java运行环境
- [Javascript] Advanced Reduce: Additional Reducer Arguments
- openstack私有云布署实践【0 前言】
- 安装你自己的perl modules
- bzoj:3085: 反质数加强版SAPGAP
- 【Android 应用开发】BluetoothSocket详解
- CentOS7 yum方式安装MySQL5.7
- CEYE平台的使用
- 正确的学python方式
- idea出现找不到实体类
- Django-Oscar小记：如何使用高版本Django开发网页的SEO模块
- spring ico
- video 铺满父元素（object-fit: fill;）
- 重装系统之制作U盘启动盘
- 【BZOJ4504】K个串
- MySql NDB cluster replication配置
- windows10 下安装tensorflow 并且在jupyter notebook 上使用tensorflow