Finding row number of top 3 entries

[Amar Thakkar]

My data file is in the attached format

Using VBA, I need the row numbers of all the companys with top 3 EBITDA.

[tom1977]

try this

Sub max3()
    Dim i As Long, a As Long, y As Long
    Dim myrange As Range
    Dim mymax As Variant
    Dim kom As Variant

a = Cells(Rows.Count, "d").End(xlUp).Row

Set myrange = Range("d2:d" & a)
  y = 2
  For i = 1 To 3
    mymax = WorksheetFunction.Large(myrange, i)
    For Each kom In myrange
    If kom = mymax Then
    Range("i" & y) = kom.Row
    y = y + 1
      End If
    Next
   
  Next
End Sub

[6StringJazzer]

Any particular reason why it needs to be VBA? Are you using the list of row numbers in other code?

If you just need to display the data here is a non-VBA solution.

[Amar Thakkar]

Any particular reason why it needs to be VBA? Are you using the list of row numbers in other code?

If you just need to display the data here is a non-VBA solution.

Sorry for not responding for so long..
I had to shelve that part of the project so I have not tried out the solutions provided by you guys..

thanks for helping ..