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

金牌1

一江春水1688 发表于 2025-1-1 15:03
先贴图，源代码稍后上传

感谢神手相助！

金牌1

一江春水1688 发表于 2025-1-1 15:05

祝春水老师新年快乐！！！太厉害了，大神请将单元格超链接网址带过去，就是完美的最佳作品！！！！！！

Again123456

JSA和VBA一维转三维.rar (55.58 KB, 下载次数: 3)

2025-1-1 17:21 上传

点击文件名下载附件

不知道结果是否正确

金牌1

Again123456 发表于 2025-1-1 17:21
不知道结果是否正确

统计转三维少了数字0所在的列。

一江春水1688

金牌1 发表于 2025-1-1 16:30
祝春水老师新年快乐！！！太厉害了，大神请将单元格超链接网址带过去，就是完美的最佳作品！！！！！！ ...

同祝新年快乐！

一江春水1688

一江春水1688 发表于 2025-1-1 19:42
同祝新年快乐！

源代码如下：

1. function test7(){
   
2.     Sheets('区').Activate();
   
3.     let rngs = [...Range('A3').CurrentRegion.Columns(2).Cells].slice(1);
   
4.     let arr = Range('A3').CurrentRegion().slice(1);
   
5.     let max = 0;
   
6.     let dic = arr.reduce((x, [a, b, c, d], j) => {
   
7.         let dic = x[c] ??= {l:[], r:{}, a:[]};
   
8.         let i = dic.r[d] ??= 0;
   
9.         (dic.l[i] ??= [c])[d + 1] = a + b;
   
10.         dic.a.push([rngs[j], i + 1, d + 2])
    
11.         max = Math.max(max, d);
    
12.         return ++dic.r[d], x;
    
13.     }, {});
    
14.     let res =[['类别\\数量', ...Array(max + 1).keys()]];
    
15.     Object.keys(dic).forEach(x => res.push(...dic[x].l));
    
16.     Range('G2').CurrentRegion.Clear();
    
17.     let rng = Range('G2').Resize(res.length, res[0].length);
    
18.     rng.Value2 = res;
    
19.     let iOffset = 1;
    
20.     for(let t in dic){//复制【名字】列的单元格格式
    
21.         dic[t].a.forEach(([s, i, j]) => {
    
22.             if(s.Hyperlinks.Count > 0)  //如果有超链接则复制
    
23.                 ActiveSheet.Hyperlinks.Add(
    
24.                     rng.Cells(i+iOffset, j),
    
25.                     s.Hyperlinks(1).Address
    
26.                 )
    
27.             s.Copy();
    
28.             rng.Cells(i+iOffset, j).PasteSpecial(xlPasteFormats);
    
29.         })
    
30.         iOffset += dic[t].l.length;
    
31.     }
    
32.     Application.CutCopyMode = false;
    
33.     rng.Columns(1).RangeEx.MergeSame();//同类自动合并单元格
    
34.     rng.Borders.LineStyle = 9;//VBA不熟悉，向A佬学的
    
35. }
    

复制代码

lizhipei78

大神的代码压根看不懂得，我就是那个搞好几个循环得出来结果的小白
JSA一维转三维_20250101.rar (66.13 KB, 下载次数: 0)

2025-1-1 19:49 上传

点击文件名下载附件

lizhipei78

Again123456

金牌1 发表于 2025-1-1 18:51
统计转三维少了数字0所在的列。

0列肯定是有的！你都没仔细看

lizhipei78

有一个循环是多余的