如何根据内容拆分单元格？

x-xx-xx

LIUZHU

JSA五行代码

1. function 拆分(){
   
2.         let arr=Sheets.Item("Feuil1").Range("b1").CurrentRegion.Value2;
   
3.         let res=arr.map(([a,b,c])=>b.split(/[/、]/).map(x=>[a,x,c])).flat();
   
4.         Sheets.Item("完成表").Range("b1").Resize(res.length,res[0].length).Value2=res;
   
5. }

复制代码

LIUZHU

楼主的WPS就可以测试

czl103

LIUZHU 发表于 2024-3-26 09:22
楼主的WPS就可以测试

好的，谢谢，我试试。

czl103

^星^ 发表于 2024-3-25 22:06

我刚发现，表中有些订单号的分隔符并不是“/”，还有“+”或者"、", 大虾是否可以帮忙改下代码，谢谢。

无关岁月

参与一下

拆分单元格中数据.7z (18.52 KB, 下载次数: 7)

2024-3-26 18:30 上传

点击文件名下载附件

czl103

LIUZHU 发表于 2024-3-26 09:22
楼主的WPS就可以测试

亲测可以，牛。
我现在用OFFICE2016，大虾可否改未office版本，谢谢。

LIUZHU

czl103 发表于 2024-3-26 18:39
亲测可以，牛。
我现在用OFFICE2016，大虾可否改未office版本，谢谢。

改成Office版本，就是改成VBA版本，已经有其他人回复了，方法都差不多。
JSA代码是专门针对WPS的，因为现在我单位已经不能在使用Office了，所以现在写代码，基本都是JSA的，不怎么写VBA了

yanglinzi

请测试。。

^星^

拆分单元格中数据.zip (18.88 KB, 下载次数: 6)

2024-3-26 18:47 上传

点击文件名下载附件