|
n さん、本当にありがとうございました。
sPhere(x, 1) = Empty の理解はあやふやですが、大筋では
理解できました。
理解できた確認の為、コードを書き込ませていただきます。
間違っていたら教えてください。
今後もよろしくお願いします。
Sub 確認()
Dim LastRow As Integer
Dim sPhere As Variant
Dim i As Long
Dim x As String
Dim rNbroW(1 To 10) As String
LastRow = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row
sPhere = Range("X4:X" & LastRow)
With Application
For i = 1 To 10
x = .Match(.Max(sPhere), sPhere, 0)
If Not IsError(x) Then
rNbroW(i) = x + 3
Cells(x + 3, 24).Select
MsgBox x + 3 & "が" & i & "番目に大きい行です"
sPhere(x, 1) = Empty 'Range("X4:X" & LastRow)から消しちゃう?
End If
Next i
End With
End Sub
|
|