[求助] VBA怎样根据总表中数据按类别筛选数据到相应表中？

my3022

沈默00 发表于 2024-3-27 13:46

请问一下，如果要换成根据学校栏（F列）拆分，修改哪里。还有，点删除分表后把我新增的统计表和封面也删除了，要修改哪里才不会删除

saghj

yanglinzi

请测试。。

yanglinzi

请测试。。

yynrzwh

附件名册.zip (44.02 KB, 下载次数: 8)

2024-3-27 16:12 上传

点击文件名下载附件

LIUZHU

做了一个总表模板，方便复制，楼主的办公软件是WPS，JSA代码可用

1. function 表格拆分(){
   
2.         let arr=Sheets.Item("总表").Range("a1").CurrentRegion.Value2;
   
3.         let obj=arr.slice(3).reduce((dic,x)=>((dic[x[7]]=dic[x[7]] || []).push(x),dic),{});
   
4.         Application.DisplayAlerts=false;
   
5.         for (let key in obj){
   
6.                 let temp=obj[key];
   
7.                 try{Sheets.Item(key).Delete()}catch{};
   
8.                 Sheets.Item("总表模板").Copy(null,Sheets.Item(Sheets.Count));
   
9.                 ActiveSheet.Name=key;
   
10.                 if (temp.length>2) Range("a5").Resize(temp.length-2,1).EntireRow.Insert();
    
11.                 Range("a4").Resize(temp.length,temp[0].length).Value2=temp;
    
12.         }
    
13.         Application.DisplayAlerts=true;
    
14.         alert("拆分完毕。");
    
15. }

复制代码

LIUZHU

附件在此，请测试

沈默00

my3022 发表于 2024-3-27 15:22
请问一下，如果要换成根据学校栏（F列）拆分，修改哪里。还有，点删除分表后把我新增的统计表和封面也删 ...

把你的原表发上来，数据你截取一部分就行了，不然我也不知道要保留哪些表，，，，

ykcbf1100

my3022 发表于 2024-3-27 14:54
谢谢三位大佬了，是不是总表有数据变化都只能重新拆分，不能同步更新

之所以没有保留你原来的表，我这里是因为有些表数据拆分不进去，不知道是不是你的表名和总表中的类型名不一致造成。其实，总表数据有变化，新建表是最合理，肯定能拆分进去。你只要点一下按钮就行了。

my3022

沈默00 发表于 2024-3-27 13:48
直接新建表格，后期有其他类型也会自动增加的，试一下

点拆分和删除都会把增加进去的统计表和封面删除掉，怎么修改代码，删除的处理了，能保留下新增的统计表和封面，点拆分的不知道要修改哪里才能保留