专注于discuz,uchome,dedecms等各类PHP程序仿站(二次开发和模板制作)。

« »
2011-03-02电脑网络

7,495 阅读

excel正则

首先Alt+F11打开VBA→插入模块在模块中输入以下代码

 

 

Sub 正则替代()
Dim reg As Object ‘定义reg为一个对象
Dim arr ‘定义一个动态数组
Dim i As Long, j As Long ‘分别定义i,j为长整型
i = Range("E65536").End(xlUp).Row ‘把A列非空的最后行数赋予给i
Columns("F").ClearContents ‘清空B列
arr = Range("E1:E" & i) ‘把A列的数据赋予给数组arr
Set reg = CreateObject("VBscript.RegExp") ‘调用正则表达式
With reg ‘定义表达式
.Global = True ‘匹配所有搜索项
.ignorecase = True ‘不区分大小写
.Pattern = "class=’boxright_2′" ‘正则表达式(首空格)
End With
For j = 1 To i ‘循环该区域
Range("F" & j) = reg.Replace(arr(j, 1), "") ‘进行根据模板替换字符串为空值
Next
End Sub

原创文章如转载,请注明:转载自火跃工作室
本文网址:http://www.huoyue.org/execl-regexp

日志信息 »

该日志于2011-03-02 10:55由 火跃 发表在电脑网络分类下, 你可以发表评论。除了可以将这个日志以保留源地址及作者的情况下引用到你的网站或博客,还可以通过RSS 2.0订阅这个日志的所有评论。

相关日志 »

  • 暂无相关日志

没有评论

发表评论 »