|
よろしくお願いします。
X列は数値です。
X列の大きい順に優先順位を付けようと以下のようにしましたが、
同数の場合は行の上にあるを優先順位の上位にしたいと思います。
小生勉強中です。Largeにはこだわっていません。
過去のスレでは見つかりませんでした。
参考になる過去のスレでも良いです。ヒントを下さい。
Sub test()
Dim LastRow As Integer
Dim rNb1roW As Long
Dim rNb2roW As Long
Dim rNb3roW As Long
Dim rNb4roW As Long
Dim sPhere As Variant
LastRow = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row
sPhere = Range("X4:X" & LastRow)
With Application
rNb1roW = Application.Match(.Large(sPhere, 1), sPhere, 0) + 3
rNb2roW = Application.Match(.Large(sPhere, 2), sPhere, 0) + 3
rNb3roW = Application.Match(.Large(sPhere, 3), sPhere, 0) + 3
rNb4roW = Application.Match(.Large(sPhere, 4), sPhere, 0) + 3
End With
End Sub
|
|