如何把组合在一起的多信息记录拆分成多条记录返回？

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

楼主 liuguansky	Q:如何把组合在一起的多信息记录拆分成多条记录返回？有记录类似这样的“江门1的(C1027H01)[金额0],江门2共同(C1127H31)[金额0]” 想把其中的名称，代码，金额分开成一条记录返回？ A：用如下代码可以实现： Sub justtest() Dim i&, arr, brr(), a, j&, k& With Sheets("项目编号") arr = .Range("a2:m" & .Cells(Rows.Count, 2).End(3).Row) End With With CreateObject("vbscript.regexp") .Global = True .Pattern = "(.)$(.)$\[金额(.*)\]" '匹配名称，编号，金额 For i = 1 To UBound(arr) a = Split(arr(i, 2), ",") For j = 0 To UBound(a) k = k + 1 ReDim Preserve brr(1 To 13, 1 To k) brr(1, k) = arr(i, 5) '结果表的第1列(A列)=源表的第5列(E列) brr(4, k) = .Replace(a(j), "$1") '结果表的第4列(D列)=源表的第5列(A列)的第一部分 brr(7, k) = arr(i, 13) '结果表的第7列(G列)=源表的第13列(M列) brr(8, k) = .Replace(a(j), "$2") '结果表的第8列(H列)=源表的第5列(A列)的第二部分 brr(13, k) = .Replace(a(j), "$3") '结果表的第13列(M列)=源表的第5列(A列)的第三部分 Next Next End With With Sheets("sheet2").[a2] .Resize(Rows.Count - 1, Columns.Count).ClearContents .Resize(UBound(brr, 2), 13) = Application.Transpose(brr) End With End Sub 该贴已经同步到
2楼 YESS95	跟花爷学习
3楼 kangguowei	学习

免责声明

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

评论列表