合并数据，代码优化

limonet

ynzsvt

这样已知条件，前三行就废了！

飞天篮球猪

ykcbf1100 发表于 2025-4-7 20:22
看来楼主是真的闲的，先是发帖求助拆分，现在又发帖求助合并回去。
一个字典、一个循环就够了。
附件供参 ...

都闲

一招秒杀

这个够精简吗

wang-way

一招秒杀 发表于 2025-4-7 22:01
这个够精简吗

真烧脑啊  这是什么工具

wang-way

试试

1. function yy20250407() {
   
2.     let ar = Range('a1').CurrentRegion.Value().slice(1);
   
3.     let br = [['时间', '地点', '陪同', '人员', '性质']];
   
4.     ar.forEach(([a, b, c, d]) => {
   
5.         let t = c.split('、');
   
6.         t.forEach((e, i) => {
   
7.             br.push([WorksheetFunction.Text(a, 'yyyy/mm/dd'), b, t.filter(x => x !== e).join('、'), e, d]);
   
8.         })
   
9.     })
   
10. 
    
11.     Range('P1').Resize(br.length, br[0].length).Value2 = br;
    
12. }

复制代码

ynzsvt

要考虑周全，代码挺复杂

lizhipei78