怎样用VBA实现公式自动更新?

wgl721219

你1月份的数据和2月份的数据都放在什么地方？是1 个工作表中吗？还是两个工作表？

红池坝

用VBA做一个宏，然后为这个宏放指定一个按钮或者快捷键：

我说一下思路，具体代码就不写了：

首先，如果你的表的行数是不确定的，请确定行数，我们架设是n（当然如果你的行数是固定的，则n就是一个常数了）

    最简单的一个方法是用do……loop循环，直到一个空行为止，那么此时的数据清单中的最后一行就是n-1

然后，确定最后一列，这有两个方法，一个方法就用上面确定行的办法一样，第二个办法是如果你能确保最后一列的标题就是“汇总”的话，直接在标题行中查找“汇总”，然后取得列的数值，赋予变量m

最后，用两个嵌套For……next循环来完成汇总计算：

    for i=2 to n-1      =======从第2行开始到最后一行

      s=0               ========初始化每一行的汇总数据

       for j=2 to m-1     ========从第2列开始到有数据的最后一列（m是需要汇总的列）

            s=s+cells(i,j)  ======数据累加汇总

        next j

            cell(i,m)=s    ========把汇总数据写入该行的汇总单元格

      next i

其实，如果把最后一列求出来之后，汇总也可以不用for循环来累加的，应该可以用sum函数直接求和，这样就可以去掉第二个for循环，效率会大大提高