如何把同一单元格内首尾相同的单词提取出来?

作者：绿色风分类：时间：2022-08-17 浏览：139

楼主 liuguansky	Q:如何把同一单元格内首尾相同的单词提取出来? 目的：把同一单元格内首尾单词重复的单词提取出来。(不计较大小写) 但：虽有重复但不在首尾的，则不提取。备注：单词之间以空隔或“-”分隔。例如： command at one's command 则提取出 command Say-one's-say 则提取出 say in one's stead and in one's breast 则不提取。 A：用如下代码可以实现： Sub justtest() Dim exp, arr, i&, arrt() Set exp = CreateObject("vbscript.regexp") arr = Cells(1, 1).Resize(Cells(Rows.Count, 1).End(3).Row, 1).Value ReDim arrt(1 To UBound(arr, 1), 1 To 1) With exp .Global = True .MultiLine = True .IgnoreCase = True .Pattern = "^([a-zA-Z]+)[-\s].+[-\s](?=\1$)" For i = 1 To UBound(arr, 1) If .Test(arr(i, 1)) Then arrt(i, 1) = .Execute(arr(i, 1))(0).submatches(0) End If Next i Range("b:b").Clear Cells(1, 2).Resize(i - 1, 1) = arrt End With End Sub 桌面.rar
2楼無心	学习一下花花的VBA
3楼 hxigang	学习一下..........

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表