加载中…
个人资料
微博
  • 博客等级：
  • 博客积分：
  • 博客访问：
  • 关注人气：
  • 获赠金笔：0支
  • 赠出金笔：0支
  • 荣誉徽章：
正文 字体大小：大 中 小

【Excel】VBA将所有的符号替换成某特殊字符

(2016-03-16 14:59:36)
标签：

excel

vba

excelvba

文案处理

正则表达式

 分类： 【Excel】
目的：将文案按标点符号分割成短句
方法：将所有乱七八糟的标点符号替换成某特殊字符，再按特殊字符分列

文案列表如下：（放第一列）
错过了，千万别哭哟♐80元已到账，狼爪低至79元，折上9折，88包邮☺天亮就没了
11.11狂欢今晚8点开场☺0.5折起♨折后298减60，上不封顶！摆好抢购姿势
一脚蹬出国际范！4双真皮靴满减后￥91.3/双（原价共￥4959）！跟闺蜜一起美
戳我☺可领￥100元无门槛红包！然后…窝在被子里[UE409]偷笑吧
时尚保暖抓绒外套[UE106]仅￥59（原价￥898）,11种时髦色调♨任选♐

替换后的内容放第二列：
错过了#千万别哭哟#80元已到账#狼爪低至79元#折上9折#88包邮#天亮就没了
11#11狂欢今晚8点开场#0#5折起#折后298减60#上不封顶#摆好抢购姿势
一脚蹬出国际范#4双真皮靴满减后#91#3#双#原价共#4959##跟闺蜜一起美
戳我#可领#100元无门槛红包#然后#窝在被子里#UE409#偷笑吧
时尚保暖抓绒外套#UE106#仅#59#原价#898##11种时髦色调#任选#

Excel VBA代码如下：
Sub test()
    Dim regX As Object, s As String, i, j
    Set regX = CreateObject("vbscript.regeXP")
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        With regX
            .Global = True
            j = 2
             s = "[^\u4e00-\u9fa50-9a-zA-Z]"
                .Pattern = s
                Cells(i, j) = .Replace(Cells(i, 1), "#")
        End With
    Next
End Sub

喜欢

0

阅读┊ 收藏 ┊ 喜欢▼ ┊打印┊举报/Report
  

新浪BLOG意见反馈留言板　欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

Copyright © 1996 - 2022 SINA Corporation, All Rights Reserved

新浪公司 版权所有