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

目的：将文案按标点符号分割成短句
方法：将所有乱七八糟的标点符号替换成某特殊字符，再按特殊字符分列
文案列表如下：（放第一列）
错过了，千万别哭哟♐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