>>309
参照設定でMicrosoft Scripting Runtimeを追加して、標準モジュールに以下のコードを記述後、
C5に=showMaxValue(B5)と入力する。

'対象セルの最大値を保存する場所
Dim dic As New Dictionary

Public Function showMaxValue(cell As Range)
　　If IsEmpty(cell) Then
　　　　' 対象セルをクリアしたときにどう振る舞うのかを
　　　　' 決定する必要があるが、取りあえず何もしない
　　　　Exit Function
　　End If
　　
　　If dic.Exists(cell.Address) Then
　　　　If cell.Value > dic(cell.Address) Then
　　　　　　dic(cell.Address) = cell.Value
　　　　End If
　　Else
　　　　dic.Add cell.Address, cell.Value
　　End If

　　showMaxValue = dic(cell.Address)
End Function