1、
Function gs()
gs = ActiveSheet.Cells(ActiveCell.Row, 1) + ActiveSheet.Cells(ActiveCell.Row, 2) + ActiveSheet.Cells(ActiveCell.Row, 3)
End Function
在D列及其右边列输入 =gs()
2、
Function gs(a, b, c)
gs = a + b - c '把公磨搏中式的计算过程写到这里，输入公式时瞎山只要传入参数
End Function
在D1输入 =gs(A1,B1,C1)
复制填充公式银弯
3、
其实要实现 作表中在录入数据后目标单元格自动计算，但不需要别人看见目标单元格中的公式
可用工作表保护配合单元格锁定来解决
‘纯神直做历亏接赋值就可以
Sub run()
For i = 1 To 100
Sheets("烂猜Sheet1").Cells(i, 4) = "=A" & i & "+B" & i & "-C" & i
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024