如何将“序号”和“合计”之间的整行数据合并入《合并》表

jjmysjg

要把《合并》工作表后面工作表(表数不定)合并到《合并》表。合并的范围从“序号”+1行开始，到“合计”行结束。
范围内行数不定。开始的“序号”和结束的“合计”位置行不定。
在网上找到了一位老师的查找“序号”和“合计”位置的方法。
麻烦各位老师将各表数据写入《合并》表。

jjmysjg

这个帖子以前有过，没找到。

chxw68

用数组合并的。

jjmysjg

chxw68 发表于 2024-5-12 19:59
用数组合并的。

谢谢褚老师，能把工作表名写入《合并》表的A列吗。

chxw68

修改好了。

LIUZHU

做了一个合并模版的空表，方便生成新的合并表

LIUZHU

JSA代码，供参考

1. function 合并(){
   
2.         let res=[...Sheets].reduce((res,sh)=>{
   
3.                 if (sh.Name.search(/第.期/)==-1) return res;
   
4.                 let [r1,r2]=[sh.Cells.Find("序号").Offset(2,0).Row,sh.Cells.Find("合计").Offset(-1,0).Row];
   
5.                 let arr=sh.Range(`a${r1}:f${r2}`).Value2;
   
6.                 arr.forEach(x=>{
   
7.                         if (x[1]==null) return;
   
8.                         [x[0],x[5]]=[sh.Name,"=SUM(RC[-2]:RC[-1])"];
   
9.                         res.push(x);
   
10.                 });
    
11.                 return res;
    
12.         },[]);
    
13.         let app=Application;
    
14.         [app.DisplayAlerts,app.ScreenUpdating]=[false,false];
    
15.         try{Sheets.Item("合并").Delete()}catch{};
    
16.         Sheets.Item("合并模版").Copy(Sheets.Item("合并模版"));
    
17.         ActiveSheet.Name="合并";
    
18.         if (res.length>2) Range("a6").Resize(res.length-2,1).EntireRow.Insert();
    
19.         Range("a5").Resize(res.length,res[0].length).FormulaR1C1=res;
    
20.         [app.DisplayAlerts,app.ScreenUpdating]=[true,true];
    
21. }

复制代码

LIUZHU

请用WPS测试该附件，Excel测试无效

jjmysjg

LIUZHU 发表于 2024-5-12 22:13
请用WPS测试该附件，Excel测试无效

谢谢大师，我用的是OFFICE

jjmysjg

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

改在excel上怎么写？