我能做到在代码运行过程中分别选去两个单元格，自动返回和值，代码如下：Sub求和()Dimn1,n2,t$101:n1=Application.InputBox("请选择第一个单元格",t,Type:=8)IfIsNumeric(n1)=FalseThent="你选择的单元格的值为非数字！请重新选择"GoTo101Elset=""EndIf102:n2=Application.InputBox("请选择第二个单元格",t,Type:=8)IfIsNumeric(n2)=FalseThent="你选择的单元格的值为非数字！请重新选择"GoTo102Elset=""EndIfMsgBox"两单元格的和为:"&n1+n2EndSub'注意：
1、你可以自行设置一个快捷键，如ctrl+n；
2、最好确认一下你所选单元格的格式为“数值”格式
