在EXCEL中,A加B ,结果在B上显示,C加D,结果在D上显示,用宏如何设置

Question

如题所述

Answer 1

在工作表标签上右击选择“查看代码”或按Alt+F11打开VBA编辑器，输入如下代码：
Sub 求和()
Dim iRow, i As Integer
iRow = Range("A65536").End(xlUp).Row
i = Range("C65536").End(xlUp).Row
iRow = WorksheetFunction.Max(iRow, i)
'假如公式不从第一行开始，只要修改i=1为相应的值即可
For i = 1 To iRow
Cells(i, 2) = Cells(i, 1) + Cells(i, 2)
Cells(i, 4) = Cells(i, 3) + Cells(i, 4)
Next
End Sub
在运行该代码前，建议将该工作表复制一份副本，在工作表标签上鼠标右击选择“移动或复制工作表”，建立副本前打上勾号，然后确定。将宏安全性设为中，需要更改起始行，只需将代码中i=1更换为i=起始行行号即可。