用VBA拆分明细工作表（以A列名字拆分筛选相应的数据）

Fanny886

请VBA大神翻译代码   以此为准  以A列作名称建工作表并复制相应的明细到各工作表里

一江春水1688

翻译结果：

空白
呵呵，哪有什么代码？

LIUZHU

没有代码，也没有提出相关问题，附件是否正确？

Fanny886

LIUZHU 发表于 2024-6-5 17:22
没有代码，也没有提出相关问题，附件是否正确？

搞错了，现在重新上传了，第二段运行不到

Again123456

新建 XLS 工作表.7z (10.17 KB, 下载次数: 5)

2024-6-6 15:15 上传

点击文件名下载附件

LIUZHU

Again123456 发表于 2024-6-6 15:08

用filter来一次吧，那天在群里讨论的挺多

Again123456

LIUZHU 发表于 2024-6-6 15:11
用filter来一次吧，那天在群里讨论的挺多

不想用filter，感觉循环次数会增多

LIUZHU

那我写一个吧，filter

LIUZHU

代码

1. function 表格拆分(){
   
2.         Application.DisplayAlerts=false;
   
3.         const arr=Sheets.Item("明细").Range("a1").CurrentRegion.Value2;
   
4.         new Set(arr.slice(1).map(x=>x[0])).forEach(xm=>{
   
5.                 let res=arr.filter((x,i)=>i==0 || x[0]==xm);
   
6.                 try{Sheets.Item(xm).Delete()}catch{};
   
7.                 Sheets.Add(null,Sheets.Item(Sheets.Count)).Name=xm;
   
8.                 Range("a1").Resize(res.length, res[0].length).Value2=res;
   
9.         })
   
10.         Sheets.Item("明细").Activate();
    
11.         Application.DisplayAlerts=true;
    
12. }

复制代码

LIUZHU

附件，请审核