Sub 计算()
MsgBox Application.Min(Selection)
End Sub
具体的步骤：
1、打开Excle的vbe。
2、把上述的代码加入的vbe中。
3、返回到Excle的界面，选择单元格区域。单击“宏-计算-执行”
4、结果就会显示
Sub test()
Dim rngcell As Range, iMin As Double
Set rngcell = Selection
iMin = Application.Min(rngcell.Value)
MsgBox iMin
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024