怎样在excel vb中 求输入任意区域的最大值

2024-12-17 07:56:15
推荐回答(1个)
回答1:

Sub fff()

Dim myrange As Range
Dim S
Set myrange = Range(Application.InputBox("请选择区域", "输入区域"))
S = Application.Max(myrange)
MsgBox S

End Sub