'ҵ3 ϾWorksheetFunction.Max滻WorksheetFunction.Sumɾлܣinputboxʾ֣û
Sub Ŀɼֵ()
    Dim rng As Range, address As String    'һ
'ǰѡĶǵԪ򽫵Ԫַ,򽫿ı
    If TypeName(Selection) = "Range" Then address = Selection.address Else address = ""
    'һԻ, ûѡ, ĬʾaddressֵȻ󽫸ûѡrng
    Set rng = Application.InputBox("ѡֵ", "", address, , , , , 8)
    If rng Is Nothing Then Exit Sub
    For i = 1 To rng.Columns.Count   'л
        rng(1).Offset(rng.Rows.Count, i - 1) = WorksheetFunction.Max(rng.Offset(, i - 1).Resize(, 1))
    Next
End Sub