请老师帮助一下sheet表汇总

LIUZHU

ykcbf1100 发表于 2024-6-16 20:03
参与一下。。。

写入单元格和设置单元格格式的部分，是否进行循环，代码都差不多

LIUZHU

今天在群里学了点新的内容，代码还可以精简下

1. unction 汇总2(){
   
2.         let res1=[["表名","项目","金额"]], res2=[];
   
3.         [...Sheets].forEach(function(sh){
   
4.                 if (this.test(sh.Name)) return;                //表名不符合要求，跳过
   
5.                 let arr=sh.Range("a1").CurrentRegion.Value2;
   
6.                 arr.slice(1,arr.length-1).forEach(([,b,,,,f])=>res1.push([sh.Name,b,f]));
   
7.                 (res2[0]=res2[0] || arr[0], res2).push(...arr.slice(1,arr.length-1));
   
8.         }.bind(/\D+/));
   
9.         [[res1,"结果1"],[res2,"结果2"]].forEach(([res,name])=>Sheets.Item(name).Range("a1").Resize(res.length,res[0].length).Value2=res);
   
10. }

复制代码

ykcbf1100

jjmysjg 发表于 2024-6-17 09:54
ykcbf老师你好：
”行数为第二行到合计行上一行“
如何使用Cells.Find(What:="合计", LookIn:=xlValues ...

在这个题上，用find法和我的方法效果一样，换成这样就行：r = .Columns(1).Find("合计", LookAt:=xlWhole).row

zk40

LIUZHU 发表于 2024-6-17 15:37
JS代码

非常感谢老师