如何将单元格区域中的单词提取后在同一列列出？

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

楼主 Zaezhong	Q：在下方截图中的A列，存在一些英文句子，现在要求将句子中的每一个单词在一列显示（比如U列）？ A： Sub 提取英文单词() Dim i&, Match With CreateObject("vbscript.regexp") '创建正则引用 .ignorecase = True .MultiLine = True .Global = True .Pattern = "[a-z]+" '设置匹配条件为a-z字母开始的单词,最少一个字符 i = 0 For Each cell In Range("a1:a" & Cells(Rows.Count, 1).End(3).Row) '在每一个单元格中循环 If .test(cell) Then '如果匹配成功 For Each Match In .Execute(cell) '循环每一个满足的结果 [U1].Offset(i) = Match.Value i = i + 1 Next End If Next End With End Sub 提取句子中的每个单词.zip
2楼 pcwmmn	我也想了解，请大家都说说
3楼 bluexuemei	学习!

免责声明

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

评论列表