将行里的内容按要求分到不同的列中

dzx326

file:///home/kylin/文档/xwechat_files/wxid_gr885hnufvgs22_2e98/temp/snapshot/1872880899.jpgfile:///home/kylin/文档/xwechat_files/wxid_gr885hnufvgs22_2e98/temp/snapshot/4114137882.jpg

dzx326

将行里的内容按要求分到不同的列中  如：将 工作簿1.xlsx.zip“原文”做成“改后“”

学习js宏

1. function test()
   
2. {
   
3.         let sh1 = Worksheets("原文");
   
4.         let sh2 =  Worksheets("改后");
   
5.         let arr = sh1.Range("a3:a3415").Value2;
   
6.         let s = "";
   
7.         let drr = []
   
8.         arr.map(v => s = s+v[0]);
   
9.         s = s+"111●"
   
10.         let p =/\d{3}●.+?□A.+?□B.+?□C.+?□D.+?(?=\d{3}●)/g;
    
11.         let brr = s.match(p);
    
12.         for (let v of brr)
    
13.         {
    
14.                 let crr = v.match(/(\d{3}●.+?)(□A.+?)(□B.+?)(□C.+?)(□D.+)/)
    
15.                 drr.push([crr[1],crr[2],crr[3],crr[4],crr[5]])
    
16.         }
    
17.         sh2.Range("a3").Resize(drr.length,5).Value2 = drr
    
18. }

复制代码

Again123456

转换结果应该是完美的吧

考题完美转换.7z (84.98 KB, 下载次数: 4)

2024-8-24 16:45 上传

点击文件名下载附件

dzx326

感谢Again123456大神完美解决！

xd3210