求助wps按班级拆分出表格

chumi

需求是按班级拆分出表格，最好是输出成工作薄
有无老师看看怎么写要求用宏js编写，软件是wps版本谢谢

function Macro1()

{

}

chumi

有没有大神看看

sunya_0529

https://club.excelhome.net/forum ... 90&pid=11162408

非常类似的案例，你参考一下吧~

兵心依旧

chumi 发表于 2023-2-9 15:30
有没有大神看看

班级下拉选择，看看是不是这效果

chumi

sunya_0529 发表于 2023-2-9 16:04
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1650890&pid=11162408

非常类 ...

谢谢，看了一下，好像没有先选中某一列的功能。。。

chumi

兵心依旧 发表于 2023-2-9 16:44
班级下拉选择，看看是不是这效果

谢谢，但不是这种，是总表里面选择某一列，然后拆分出表，类属于筛选完成，复制到新的表格

cjc209

function 按列关键字拆分工作表成单文件(){
        var arr=Intersect(Range("a2").CurrentRegion,Range("a2").CurrentRegion.Offset(1)).Value();
        var m=new Map(),pah=ThisWorkbook.Path+"\\";
        var 表头=["姓名","班级","学号"];
        for (var ar of arr){
                if (m.has(ar[1])){
                        var newarr=m.get(ar[1]).concat([ar]);
                        m.set(ar[1],newarr);
                }else{
                        m.set(ar[1],[表头,ar])
                }
        }
       
        for (var [key,val] of m){
                var wb=Workbooks.Add();
                var ws=wb.Sheets.Add();
                ws.Name=key;
                ws.Range("a1").Resize(val.length,val[0].length).Value2=val;
                wb.SaveAs(pah+key+".xlsx");
                wb.Close();
        }
//        wb.Sheets(wb.Sheets.Count).Delete();
       
}

cjc209

给你一个js拆分

今铭昔

今铭昔

cjc209 发表于 2023-2-9 19:02
给你一个js拆分

不用写得这么麻烦，一个filter就可以了