六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

VBA代码之将Excel N个表中的A列中的数字自动相加汇总到第一表的单元格

Admin | 2009-5-21 12:26:02 | ReadNums | 9549 | 标签 六合开奖结果现场直播 | 打印本页
     

  本例,我们要实现的功能是:将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这个值。


问题未解决:在线咨询我要在线咨询问题

管家婆马报资料正版2018

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日