详细问题描述及疑问:期待您的答案,你是我的宝贝,你是我的花,谢谢你对我的帮助!
你可以使用以集席生广密玉下VBA代码来实现工作表的汇总功能:`装威村铁没``vbaSub汇总工作表()Dim汇总表AsWorksheetDim当前工作表AsWorksheetDim姓名AsStringD势气被美im日期AsDateDim行号AsLongDim汇总行号AsLong'设置汇总表Set来自汇总表=***.sheets("汇总表")'清空汇总表内容汇总表.***.clea投爱画危垂衣行良r'设置汇总表标题行汇总表.Range("A1").Value="姓者与哪特名"汇总表.Range("B1").Value="日期"汇总表.问答Range("C1").Value="数值1"汇总表.Range("D1").Value="数值2"汇总表.Range("E1").Value="数值3"汇总酒宁谁径面胶收表.Range("F1").Value="数值4"'设置汇总行号汇总行号=2'循味装待环每个工作表ForEach当前工作表In***.worksheets'判断是否费贵活冷为每日工作表If当前工作表.NameLike"每日工作表*"Then'获取姓名姓名=当前工作表.Range("C2").Value'获取日期日期=当前工作表.Range("E2").Value'获严河困取数值1行号=当前工作表.***.find(What:="B2",LookIn:=xlValues,LookAt:=xlWhole).Row数值1=当前工作表.Cells(行号,"B").Value'获取数值2数值2=当前工作表.Cells(行号,"D")宣须先记剧写.Value'获绍粒年附效交息染落观年取数值3数值3=当前工作表.Cells(行号,"G").V婷雨去alue'获取数值4数值4=当前工作表.Cells(55,"D").Value+当前工作表.Cells(55,"E").Value+当前工作表.Cell预处黑s(55,"F").Value'将数据写入汇总表汇总表.Cells(汇总行号,"A").Value=姓名汇关胡觉总表.Cells(汇总行号,"B").Value=日期汇总表.Cells(汇总行号,"C").Value=数值1汇每川儿内走发缩底总表.Cells(汇总行号,"D").Value=数值2汇总表.Cells(汇总行号,"E")口县稳质攻屋生黄检.Value=数值3汇总表.Cells(汇总行号,"F").Value=数值4'增加汇总行号汇总行号=汇总行号+1EndIfNext当前工作表'格式化汇总表样式With汇总表.Range("A1:F"&汇总行号).HorizontalAlignment=xlCenter.***.linestyle=xlContinuous.***.size=12EndWithEndSub```请注意替换代码中的"汇总表"为你的目标汇总表的名称。运行此VBA宏后,将会在汇总表中显示根据每个每日工作表提取的数据进行汇总,并按照姓名进行单项汇总。希望对你有所帮助!如有其他问题,请随时提问。