输出汇总信息到另一个sheet

李伟杰123

点击：输出汇总信息 按钮，将每一类的第一行文字添加到汇总行，去掉末尾空格后面的文字，输出到另一个sheet。如图二：


图二：输出的汇总信息


输出汇总信息到另一个sheet.rar (27.96 KB, 下载次数: 14)

2024-5-14 11:29 上传

点击文件名下载附件

LIUZHU

这个问题在5月13日的时候，貌似处理一个差不多的

limonet

自行修改B7

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select Left(First(工程项目),Instr(First(工程项目),' ')-1),分包人,max(报审价) From [分类汇总表$B:D] Group By 分包人"
    Sheets("汇总信息").Range("B7").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

LIUZHU

这个问题完全可以用公式来做，可惜我的WPS不是最新版，不能使用最新版的函数

小凡、、、

LIUZHU 发表于 2024-5-14 11:44
这个问题完全可以用公式来做，可惜我的WPS不是最新版，不能使用最新版的函数

是的，可以用函数，只是感觉比写代码复杂烧脑

LIUZHU

问题还是挺简单的

LIUZHU

JSA代码，请参考

1. function 输出汇总信息(){
   
2.         let arr=Sheets.Item("分类汇总表").Range("b1").CurrentRegion.Value2;
   
3.         let res=[arr[0]],obj={};
   
4.         arr.forEach(x=>{
   
5.                 let val=obj[x[1]]=obj[x[1]] || x[0].split(new RegExp(x[1]))[0].trim();
   
6.                 if (x[0]==null) res.push((x[0]=val,x));
   
7.         });
   
8.         Range("b1").Resize(res.length,res[0].length).Value2=res;
   
9. }

复制代码

LIUZHU

附件，请用WPS测试

ykcbf1100

参与一下。。。