求助：JSA或者VBA将一维转三维

一江春水1688

Again123456 发表于 2025-1-2 18:04
明白你的不用排序

类似铭佬的原理吧？
铭佬的核心原理是，每个类别相当于1个子表，reduce后，再合并子表，因此不需要排序。
大体上就是，把每一行，扔到对应的字典中，而该字典是个复杂的数组结构，里面又有数组，又有小字典
最后合并字典中的数组，就是最终结果了，自然而然就已经是排序后的结果。

一江春水1688

Again123456 发表于 2025-1-2 19:23
优化了一下新加一行的逻辑，速度上去了。

这个逻辑好呀，if 块中代码只执行1次，效率高多了。

一江春水1688

Again123456 发表于 2025-1-2 19:23
优化了一下新加一行的逻辑，速度上去了。

铭佬的好多技巧，在这个贴子有有详细的注释，就像您的注释一样，毫无保留。大家的问题，铭佬也都耐心解答。
我常常会去温习这个贴子的内容，有太多的知识盲点，好像懂了，应用的时候又无法自如掌控。
https://club.excelhome.net/threa ... tml?_dsign=92b76fb0

Again123456

lizhipei78 发表于 2025-1-2 20:22
经测试，如果要排序，始终没有我的快，把计算时间放在排序后比我的快一点

可能数组就是这样，排序，插入等操作，效率就是低。
因为题目是排好序的就不考虑了。
再说，如果题就是不要求排序，而是每连续区域合并呢？

Again123456

一江春水1688 发表于 2025-1-2 20:53
模仿铭佬和A佬思路

整理了一下。

lizhipei78

一江春水1688 发表于 2025-1-2 20:53
模仿铭佬和A佬思路

非常感谢，又学到新知识，这个比之前的简易懂多了，铭大那个我至今都不清楚写的啥

一江春水1688

一江春水1688 发表于 2025-1-2 20:53
模仿铭佬和A佬思路

既然数组 p 已经兼任字典了，索性在数组 p 中再增加一个字典取代原来的字典 dic

1. function  testA(){
   
2.         let data = Sheets('区').Range('a2').CurrentRegion().slice(1);
   
3.         let res = data.reduce((p, [sn, name, type, count], row) => {
   
4.                 let col = count + 1, colDic = type + col;
   
5.                 p[0][col] ??= count; //优化了冗余赋值
   
6.                 row = p[colDic] ??= (p[type] ??= p.push([type]) - 1); //p[colDic]、p[type]，由数组 p 兼任的2个字典
   
7.                 (p[row] ??= [type])[col] = sn + name;
   
8.                 return p[colDic]++, p;
   
9.         }, [['类别']])
   
10.         let sht = Sheets('区三维');
    
11.         sht.UsedRange.Clear();
    
12.         sht.Range('a1').Resize(res.length, res[0].length).Value2 = res;
    
13.         sht.UsedRange.Columns(1).RangeEx.MergeSame();
    
14.         sht.UsedRange.Borders.LineStyle = xlContinuous;
    
15. }

复制代码

上次的代码是：

1. function  test(){//本方法为直接写数组元素法
   
2.         let data = Sheets('区').Range('a2').CurrentRegion().slice(1)//原始数据已按类型排序，就不写排序了
   
3.         let startRow, dic//定义2个变量，每一种类型起始行，记录类别初始行号的字典
   
4.         let linkcells = []
   
5.         let res = data.reduce((p,[sn,name,type,count],i) => {
   
6.                 let col = count + 1 //要写入的列
   
7.                 p[0][col] = count  //写入列标题
   
8.                 /*下行代码的作用是，首次扫描到类别 type 时：
   
9.                   1、字典 dic 赋初值 {}，记录列号对应的行号
   
10.                   2、把类别 type 压入数组 p 的新行
    
11.                   3、把该类的初始行号，赋值给p[type]，即数组p又兼任字典，同时，初始行号赋值给startRow*/
    
12.                 let startRow = p[type] ??= (dic = {}, p.push([type]) - 1)
    
13.                 let row = dic[col] ??= startRow; //dic[col]赋初值startRow，dic记录的是col对应的row
    
14.                 /*圆括号中的表达式含义是：数组p的row行不存在，type压入新行，否则保持原来的p[row]
    
15.                 (p[row] ??= [type]) 结果是 p[row],后面跟[col]，最终左侧就是 p[row][col],接着就是赋值*/
    
16.                 (p[row] ??= [type])[col] = sn + name;
    
17.                 return dic[col]++, p; //dic[col]自加1，表示下次col列的行号是新的一行，最后返回数组p
    
18.         },[['类别']])//结果初始值就一个单元格
    
19.         let sht = Sheets('区三维')
    
20.         sht.UsedRange.Clear()
    
21.         sht.Range('a1').Resize(res.length , res[0].length).Value2 = res
    
22.         sht.UsedRange.Columns(1).RangeEx.MergeSame()
    
23.         sht.UsedRange.Borders.LineStyle = xlContinuous
    
24. }

复制代码

代码确实更简练了，不过也更难看懂了

一江春水1688

lizhipei78 发表于 2025-1-3 10:47
非常感谢，又学到新知识，这个比之前的简易懂多了，铭大那个我至今都不清楚写的啥

你的思路也很敏捷啊，构思新颖
铭佬的思路是一样的，把铭佬代码中的 ??= 展解开了，就容易理解了。比如：

一江春水1688

Again123456 发表于 2025-1-2 23:57
整理了一下。

把 startRow，dic 变量移入 reduce 块，dic 用 p['r'] 兼任，尽量减少外部变量的定义，占赞！

lizhipei78

一江春水1688 发表于 2025-1-3 15:37
你的思路也很敏捷啊，构思新颖
铭佬的思路是一样的，把铭佬代码中的 ??= 展解开了，就容易理解了。比如 ...

你们太拼了吧，为了一道题目，精益求精，没办法了，我也只能继续优化了