Calculating the change in ranking

[JenniferMurphy]

Is there a way to calculate the change in rankings (+/-) in two lists that are sorted by that ranking? That is, the ranked entities are not in the same order in both lists, so I cannot compare one entity with the entity in the same row in the other list.

These are the top ten NFL teams as ranked by one odds-making website. I calculated the values in the +/- column by hand. I'd like to find a way to do it automatically.

Rank	Team	Start of Season	Rank	+/-	Team	Week 1
#1	Denver Broncos	6/1	16.67%	#1	n/c	Seattle Seahawks	4/1	25.00%
#1	Seattle Seahawks	6/1	16.67%	#2	n/c	Denver Broncos	11/2	18.18%
#3	New England Patriots	8/1	12.50%	#3	n/c	New England Patriots	10/1	10.00%
#4	Green Bay Packers	11/1	9.09%	#4	n/c	New Orleans Saints	12/1	8.33%
#4	New Orleans Saints	11/1	9.09%	#4	+2	San Francisco 49ers	12/1	8.33%
#6	San Francisco 49ers	12/1	8.33%	#6	-2	Green Bay Packers	15/1	6.67%
#7	Philadelphia Eagles	20/1	5.00%	#7	n/c	Philadelphia Eagles	20/1	5.00%
#8	Chicago Bears	26/1	3.85%	#8	+3	Cincinnati Bengals	25/1	4.00%
#9	Indianapolis Colts	28/1	3.57%	#8	+1	Pittsburgh Steelers	25/1	4.00%
#9	Pittsburgh Steelers	28/1	3.57%	#10	-1	Indianapolis Colts	30/1	3.33%

<tbody>
</tbody>

I was able to get it done with a multi-step procedure:

1. Sort both lists by team name.
2. Calculate the change now that the teams are on the same row.
3. Convert the results to text.
4. Resort both lists by rank.

This works, but it's a little tedious. Is there a way I can do it on the lists without resorting?

 

[Andrew Poulsom]

With your data in A1:I11 you can use a formula like this to return the previous rank:

=INDEX(A$2:A$11,MATCH(G2,B$2:B$11,FALSE))

 

[JenniferMurphy]

With your data in A1:I11 you can use a formula like this to return the previous rank:

=INDEX(A$2:A$11,MATCH(G2,B$2:B$11,FALSE))

Very nice. Works like a charm. Thank you.

Can this code be executed from a UDF? I'd pass it the arguments, maybe something like this:

Function PrevRank(Entity, EntityList, RankList)

   PrevRank=INDEX(RankList,MATCH(Entity,EntityList,FALSE))

End Function

 

[Andrew Poulsom]

Why would you need a UDF that uses the same functions as the formula I gave you?

 

[JenniferMurphy]

Well...

1. Because the expression is long, obtuse, and typo-prone. A UDF call would be much clearer.
2. Because I might want to change the expression. With a UDF I only have to change it in one place.
3. Because I might want to do some other work, which would require additional arguments.

Is that enough? I can probably think up a few more...

 

[JenniferMurphy]

With your data in A1:I11 you can use a formula like this to return the previous rank:

=INDEX(A$2:A$11,MATCH(G2,B$2:B$11,FALSE))

I did a little research based on your suggestions. I am wondering what the difference is between your solution and this one?

   =LOOKUP(G5,A$5:A$9,B$5:B$9)

They seem to return the same results.

 

[JenniferMurphy]

I did a little research based on your suggestions. I am wondering what the difference is between your solution and this one?

   =LOOKUP(G5,A$5:A$9,B$5:B$9)

They seem to return the same results.

I see the difference now. LookUp requires that the reference list be in ascending order. Your solution works regardless of the order.

Is that correct?

 

[JenniferMurphy]

Here's a little quick and dirty function that works like the vector form of the built-in LookUp function but without the restriction that LookUpVector be sorted.

'========================================================================================
'                          My LookUp Function

' This function does what the built-in LookUp function should have done.
' It works the same way, but does not require that LookupVector be sorted.

' Syntax: =MyLookUp(LookupValue, LookupVector, ResultVector)

'   LookupValue   The value to be looked up in the Lookup vector.
'   LookupVector  The vector (row or column) where the LookupValue will be searched for.
'   ResultVector  The vector where the corresponding value will be found and returned.
'========================================================================================
Function MyLookUp(LookupValue, LookupVector, ResultVector)
Dim LookupIndex
LookupIndex = WorksheetFunction.Match(LookupValue, LookupVector, False)
MyLookUp = WorksheetFunction.Index(ResultVector, LookupIndex)
End Function

I'm sure it needs some clean up, such as declaring the vector parameters "as Range" and adding error handling. But for my needs, it works great.

All comments and suggestions appreciated.