VBA-变态表格求和

有如下这样一个变态的表格。我们需要在右边红色的单元格中计算出左边的数据的和。这个求和的变态之处在于左边的数据可能有1行，两行，甚至是10几行。Boss要求的是既要求和，还要根据单位的不同保留不同的小数位数。最要命的是，这个表格很大，如果手工做的话，可能没做完就要吐血身亡了。

不如用VBA试试吧。我实在是不想手工做，看起来就头晕。

首先分析一下表格的规律：
1. 求和的项都是合并的单元格（3个合并单元格）。例如2-7行的“挖土石方”。
2. 要求和的数据都是只有一行或者是每隔两行有一组数据（例如第10行、第4行和第6行）
3.单位都是在第3列

程序的逻辑基本就是这样：
1.判断第一列的第n行的单元格是否为合并单元格，如果是的话，说明是求和项，进入2。
2.得到求和的区域
3.根据单位在第12列写入公式

Sub 求和()i = 7   '开始行s = 0   '求和数据所在行号e = 0   '合并的最后一个单元格行号While i < 1566 ' 这个数根据自己表格行数定If Range("A" & i).MergeCells Then '判断单元格Ai是否为合并单元格s = i + 2 '得到求和数据所在行e = Range("A" & i).MergeArea.Count + s '合并的最后一个单元格行号gs = "D" & s & ":K" & s '求和的区域While e > s + 3 '如果求和的区域大于一个gs = gs & ",D" & s + 3 & ":K" & s + 3 '添加求和区域s = s + 3WendIf Range("C" & i).Value = "m" Or Range("C" & i).Value = "m2" Or Range("C" & i).Value = "dm3" Then '判断单位，根据单位的不同，写入不同的公式Range("L" & i).Value = "=round(sum(" & gs & "),2)"ElseIf Range("C" & i).Value = "m3" Or Range("C" & i).Value = "kg" Or Range("C" & i).Value = "Kg" ThenRange("L" & i).Value = "=round(sum(" & gs & "),1)"ElseRange("C" & i).Interior.Color = vbRedRange("L" & i).Value = "=round(sum(" & gs & "),0)"End If Range("L" & i).Interior.Color = vbRed '填充为红色i = s + 1Else '如果不是合并单元格，则下移一行i = i + 1End IfWend
End Sub

VBA-变态表格求和相关推荐

oracle 联表求和不重复_别再瞎忙了，Excel多表格求和用这4个方法分分钟完成的事...
[温馨提示]亲爱的朋友,阅读之前请您点击[关注],您的支持将是我最大的动力! 前几天有粉丝问多表格如何求和,之前的教程中小编分享过多个方法,可以点击我的头像去主页查看.今天小编再汇总几种工作中常用的多 ...
vue实现变态表格表头和列固定
复杂表格表头和列固定对于这个问题,相信网上也会有很多答案,很多插件或者是类似的案例,一下是我参考别人所写的案例自己改造的一个变态表格 1.实现的效果是,左右滚动,左边列固定,上下滚动,上边头部固定 ...
HTML语言怎么对表格求和,excel求和怎么弄 EXCEL表格求和公式怎么运用？
Excel中自动求和怎么弄? EXCEL列行自动求和怎么用打开需要操作的Excel表格,以学生成绩明细数据,分别求出每个学生总成绩.单科的总成绩为例. 每个学生的总成绩:选中"合计&quo ...
计算机制作乘法表格,表格求和乘法【操作步骤】
很多人都懂一些简单的电脑系统问题的解决方案,但是表格求和乘法的解决思路却鲜为人知,小编前几天就遇到了表格求和乘法的问题,于是准备整理一些表格求和乘法的解决思路,其实只需要按照 1:打开excel工具, ...
WPS表格求和详细教程
WPS表格求和详细教程求和功能表格里面基础需要掌握的一个知识点,今天读书屋OFFICE教程网的陈飞老师将讲解WPS表格求和四个方法,分别是"快速求和按钮"."手工计算& ...
用计算机乘法怎么累加,表格求和乘法【解决模式】
喜欢使用电脑的小伙伴们一般都会遇到win7系统表格求和乘法的问题,突然遇到win7系统表格求和乘法的问题就不知道该怎么办了,其实win7系统表格求和乘法的解决方法非常简单,按照 1:打开excel工具 ...
excel跨多个表格求和_看完财务同事用Excel函数完成的进销存报表，老板惊呆了...
有仓库.有商品的地方都离不开进销存软件,有花钱买的.也有花大力气自已找人订制的.网上下载破解版?真的不可靠,万一出现什么问题,你们公司将面临信息损坏或丢失的风险! 其实,如果只是小规模的库存商品管理, ...
计算机word表格求和怎么操作,Word表格编辑技巧：利用“公式”命令求和-word技巧-电脑技巧收藏家...
Word表格编辑技巧:利用"公式"命令求和要计算Word表格中的数据,请先将光标置于需要放置数据计算结果的单元格中,再单击"表格→公式"命令,弹出" ...
[VBA]EXCEL表格，运行VBA报错：运行时错误‘9’ 下标越界
代码目的: 点击工作表,自动实现表格数据清空问题: 遇到报错提示"下标越界" 错误及解决过程: 点击"钢管重量排序"工作表,弹出窗口报错.检查excel文件发 ...

VBA-变态表格求和

VBA-变态表格求和相关推荐

最新文章

热门文章