要求：统计同一工作簿内不同表固定单元格的数据汇总 。
对于模块执行或者制成模块，个人觉得模块比较便利，日后填入函数统计比较迅速，一劳永逸且无需代码重写 。
代码如下：
打开VBE，新建模块贴入以下代码
sub 汇总()
'如果每张表需统计的单元格是A1
Dim sht as worksheet,rng as range，Tmp as long
Tmp=""
'遍历所有工作表
For Each sht in workSheets
'将同一位置的数据相加
Tmp=Tmp sht. cells(1,1)
next
'提示统计结果
Msgbox Tmp
End sub
其实也可以做成函数
将Sub换成Function
新建模块贴入以下代码
Function SumData(rng as range)
Dim sht as worksheet,rng as range，Tmp as long
Tmp=""
For Each sht in workSheets
Tmp=Tmp sht. rng
next
'统计结果赋值给函数
SunData=https://www.itzhengshu.com/excel/Tmp
End Function
【「每日Excel」多表同单元格数据的汇总】以上文章均手机中扣字，老婆说我手小很奇葩，打字不容易[捂脸][捂脸][捂脸]，如果大家觉得好用 ， 请点关注[爱慕][爱慕][爱慕] 。可以留下您的意见或建议，也可以提出功能要求，本人将尽量满足大家需求 。