本例，我们要实现的功能是：将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这个值。
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
