如何用正则按照行政级别把一列转换为多列？

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

楼主 herelazy	Q：如何用正则按照行政级别把一列转换为多列？具体要求如图所示：目标表： A： Sub test() Dim Rng As Range, Str$, Rule, Arr, Result, N&, I& Rule = Array("(村\|居)[民委员会]?", "(乡\|镇\|街道.)", "县\|区", "市", "省") With CreateObject("vbscript.regexp") .Global = True Arr = Range("b1:b" & IIf(Cells(Rows.Count, 2) <> "", Rows.Count, Cells(Rows.Count, 2).End(3).Row)).Formula ReDim Result(LBound(Arr) To UBound(Arr), LBound(Rule) To UBound(Rule)) For N = LBound(Arr) To UBound(Arr) For I = LBound(Rule) To UBound(Rule) .Pattern = Rule(I) & "$" If .test(Trim(Arr(N, 1))) Then Result(N, UBound(Rule) - I) = Arr(N, 1) Exit For End If Next I Next N End With [c1].Resize(UBound(Result) - LBound(Result) + 1, UBound(Result, 2) - LBound(Result, 2) + 1) = Result End Sub 示例文件：用正则一列分成多列.rar 该帖已经同步到
2楼冰心8549	谢谢，学习了
3楼 356468826	正则啊 =。= 学习...... 感觉是个深奥的东西 HOHO
4楼 JOYARK1958	謝謝提供學習下載中
5楼 bluexuemei	学习!

免责声明

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

评论列表