请教替换问题，请高手帮忙，谢谢。

yzcg

在excel单元格里有很多行数据，是文件名，前面加了编号，形式如下。

我要把编号去掉，没总结出规律，能看出：排在开头；中间有1-3个”-“连接，”-“前后基本都有一两位数字，个别的没有最后位数字。

最后要的到的文件名是以非数字开头（百分之99.9是汉字，偶有“《”开头的》

例外：有些文件的开头是年份四位数，如2019、2015，这些要保留，不能误替换掉。

感觉用word应该比excel操作更好一点，不需要按多少组合一一去替换，而且对文件名中间碰巧有上述格式的有误伤，例外的那种情形我也没想出办法避免。如果excel中好弄也行。谢谢。

5-5-1关于开展爱国主义

11-2中华人民共和国

2-1-1-2-江苏省扬州市

1-中国人民人民

3-12019关于开展

替换后的结果：

关于开展爱国主义

中华人民共和国

江苏省扬州市

中国人民人民

2019关于开展

duquancai

第一没看见你的Excel附件！！！

第二猜谜语：用正则表达式提取（不是替换！），正则表达式为：(?:\d{4})?[一-﨩《]+$

413191246se

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .Parent.InsertBefore Text:=vbCr
   
4.         .Execute "(^13)([0-9\-]@)(20[0-9]{2})", , , 1, , , , , , "\1\2﨩\3", 2
   
5.         .Execute "(^13)([0-9\-]@)([一-﨩])", , , 1, , , , , , "\1\3", 2
   
6.         .Execute "﨩", , , 1, , , , , , "", 2
   
7.         .Parent.Paragraphs(1).Range.Delete
   
8.     End With
   
9. End Sub

复制代码

yzcg

谢谢楼上两位的热心解答！高手啊！
VBA这个感觉还能看懂部分，正则表达式则几乎看不懂了。

413191246se

楼主，我忘了书名号了，重新改了一下。这个VBA宏代码，其实就是手动查找和替换的自动形式。

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .Parent.InsertBefore Text:=vbCr
   
4.         .Execute "(^13)([0-9\-]@)(20[0-9]{2})", , , 1, , , , , , "\1\2﨩\3", 2
   
5.         .Execute "(^13)([0-9\-]@)([一-﨩《])", , , 1, , , , , , "\1\3", 2
   
6.         .Execute "﨩", , , 1, , , , , , "", 2
   
7.         .Parent.Paragraphs(1).Range.Delete
   
8.     End With
   
9. End Sub

复制代码