本例，我们要实现的功能是：将excel工作薄中的N个表的A列的只要是数字的数据，相加汇总到第一个表。
特点是(得使用VBA来实现)：
①不管有多少个表，不管以后新建多少个工作表，更不用管工作表的名称是什么，都将会自动实现相加汇总；
②不管这N个表里面的A列数据，到底有没有内容，不管是中文、英文、特殊符号、空格；但是，只要是数字，就统统相加起来；
从N个表里面的A列中，自动寻找有数字能运算的单元格，相加汇总到第一表的A1单元格。
实现方法：
如下图！
首先在第一个表里面，添加一个按钮，之后，双击按钮，进入按钮的代码编写模式，如下图！
上图，就是智能自动汇总按钮的VBA代码；
部分代码说明：
①Dim TotalNum As Integer 该变量为汇总变量，相加的结果就存放在这个变量里面
②以下循环代码，从第二个表开始统计，一直统计到最后一个表
For i = 2 To Worksheets.Count
Next
③以下代码对单元格进行判断，是数字的就相加，不是数字的就不相加
If (IsNumeric(Worksheets(i).Cells(j, 1).Value)) Then
TotalNum = TotalNum + Worksheets(i).Cells(j, 1).Value
End If
④For j = 1 To 100 这行代码的意思就是，统计每个表的A列的时候，只统计到A100，如果您的数据范围比这个还更大，请自行修改100这个值。