用代码把不同区域的行分组并升序排序

LJX2008m

LIUZHU 发表于 2024-5-12 12:02
JSA代码，供参考

这代码可以运行。还是编号和序号没有原来的颜色。

LJX2008m

baofa2 发表于 2024-5-11 17:53

代码可以运行，编号和序号那行的原有颜色都没有了。

EHGOOD

你之前在公式区发的帖，去试试吧。

quqiyuan

参与一下，供参考

quqiyuan

LIUZHU

LJX2008m 发表于 2024-5-12 13:45
编号和序号的行是有颜色的。不能变！要求格式不变，升序排序。

按照你的要求，增加了边框，编号和序号都设置了颜色，编号字体加粗

LIUZHU

代码也修改了下

1. function JSA排序(){
   
2.         let key,arr=Sheets.Item("明细表").Range("a1").CurrentRegion.Value2;
   
3.         arr.forEach((x,i)=>{
   
4.                 if (x[0]=="编号") key=arr[i+1][0];
   
5.                 x[x.length]=key;
   
6.         });
   
7.         arr.sort((a,b)=>a[a.length-1]-b[b.length-1]);                //排序
   
8.         Sheets.Item("排序结果").Activate();
   
9.         Cells.Delete();
   
10.         Range("a1").Resize(arr.length,arr[0].length-1).Value2=arr;
    
11.         Range("a1").CurrentRegion.Borders.LineStyle=1;
    
12.         Range("a1").HorizontalAlignment=xlHAlignCenter;
    
13.         arr.reduce((dic,[x],i)=>{
    
14.                 Range(`a${i+1}`).Resize(1,arr[0].length-1).Interior.Color=dic[x] || 16777215;
    
15.                 Range(`a${i+1}`).Resize(1,arr[0].length-1).Font.Bold=x=="编号"?true:false;
    
16.                 return dic;
    
17.         },{"编号":176464,"序号":9687376});
    
18.         Range("a1").CurrentRegion.EntireColumn.AutoFit();
    
19. }

复制代码

LIUZHU

LJX2008m 发表于 2024-5-12 13:58
这代码可以运行。还是编号和序号没有原来的颜色。

再看看效果吧，看是否符合要求

LJX2008m

quqiyuan 发表于 2024-5-12 16:19
参与一下，供参考

完全符合！我现在就有2朵花！都给你！

LJX2008m

LIUZHU 发表于 2024-5-12 16:30
再看看效果吧，看是否符合要求

这个最左列有靠左有靠右的，应该是数字和文本的格式问题！还是非常感谢您的帮助！我现在没有花了！有花我也给您！