EXCEL VBA来批量解决单元格求和的问题

2025年03月01日 02:17

有4个网友回答

网友（1）：

sub macro1()
for i=n to n+17 'n要换成实际的行号
for j=1 to m '从第一列开始，到第m列；m要换成实际的数字
cells(i,j).value=cells(i+25,j).value+cells(i+29,j).value
next j
next i
end sub

其实不一定要用VBA，可以直接用公式完成
假设是第2到第19行的1到100列，首先在A2单元格输入公式：=A27+A31，然后往下填充到A19，再选择A2:A19，往右填充到第100列即可。

这样如果下面的数据发生了变化，求和的结果可以立刻随之改变；而VBA的必须重新运行宏才可以改变计算的结果。

网友（2）：

=INDIRECT(ADDRESS(ROW()+25,COLUMN()))+INDIRECT(ADDRESS(ROW()+29,COLUMN()))

其他各位说的方法都可以,我上面举的公式的好处是,当你在下面执行各种插入删除行列单元格等的操作时候,使用这个公式其引用不会因而改变.

这个公式写起来稍复杂,但是比较硬.如果是简单处理一下数据,如另一位同学所说,直接=(a+b),其中a和b是用鼠标点选引用的单元格,然后把公式拉伸即可.

但熟悉上面这个语法的很大的好处在于当你使用条件格式的时候,你可以很灵活的定义各种逻辑. 这是"鼠标点选引用"的思维很难做到的. 所以还是值得看一看的.

网友（3）：

不用vba了，公式填充即可，在空白区域左上角的格子填写公式将想要的两个单元格相加，注意单元格引用别带$符号，拖动格子右下角填充整个区域即可。

网友（4）：

还是给我文件吧，没有文件，直接不好写！
邮箱：2373565537@qq.com