要求：统计同一工作簿内不同表固定单元格的数据汇总。

对于模块执行或者制成模块，个人觉得模块比较便利，日后填入函数统计比较迅速，一劳永逸且无需代码重写。

代码如下：

打开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=Tmp

End Function

以上文章均手机中扣字，老婆说我手小很奇葩，打字不容易[捂脸][捂脸][捂脸]，如果大家觉得好用，请点关注[爱慕][爱慕][爱慕]。可以留下您的意见或建议，也可以提出功能要求，本人将尽量满足大家需求。