|
こんにちは。かみちゃん です。
> A4から下をクリアしたいのですがMax関数で最大値は見つけられるのですが問題の
> クリアを自動で行えるようにしたいのですがどうでしょう?
> 最大値が二つ以上ある場合は、最後の最大値を参考にします。
最後の最大値を参考にしたいということでしたら、
私だったら、Findメソッドでセルを検索します。
具体的には、以下のような感じです。
Sub Sample()
Dim MaxData
Dim c As Range
MaxData = WorksheetFunction.Max(Range("A:A"))
Set c = Range("A:A").Find(MaxData, Range("A1"), xlValues, xlWhole, , xlPrevious)
If Not c Is Nothing Then
MsgBox "最大値 " & MaxData & " の最後のセルは " & c.Address
c.Offset(1).Resize(Rows.Count - c.Row).ClearContents
Else
MsgBox "最大値 " & MaxData & " のセルは見つかりませんでした"
End If
End Sub
|
|