Katy has a worksheet that, in some columns, contains integer data values ranging from 1 through 5. (In those particular columns, these are the only values in the column.) She would like to "reverse" these data values, such that 5 becomes 1, 4 becomes 2, 3 stays the same, 2 becomes 4, and 1 becomes 5. She only wants this to happen in certain columns, and she is stuck trying to figure out how to accomplish the task.

There are actually several different ways you can accomplish this task. The first is to use a simple formula to do the reversal. Assume, for instance, that the values you want to reverse are in column A, starting in row 2. The following formula will work:

=6-A2

Copy the formula down as far as you need, and the result is reversed values. You can then copy the values and paste them wherever you want using Paste Special. (You use Paste Special so you can copy just the values, not the formulas that create the values.)

This isn't the only formula you could use, however. You could use the CHOOSE function in this manner:

=CHOOSE(A2,5,4,3,2,1)

Another approach is to set up the numbers 1-5 in a difference set of cells (let's say you put those values in cells T1:T5) and then use the RANK function, in this manner:

=RANK(A2,T1:T5,0) =RANK.EQ(A2,T1:T5,0)

Both return the desired reversal, but the second example (RANK.EQ) should be used in Excel 2010 and Excel 2013 because the RANK function is in the process of being deprecated in Excel.

You could also reverse the values in place by using a macro to do the task. Here's a simple one that will do the job:

Sub ReverseNumbers() Dim rCell As Range For Each rCell In Selection With rCell If IsNumeric(.Value) Then .Value = 6 - .Value End If End With Next End Sub

To use the macro, select the cells you want to reverse and then run it. It first checks to make sure that the cell contains a numeric value; if so, it subtracts the value in the cell from 6, effectively reversing the value.

*ExcelTips* is your source for cost-effective Microsoft Excel training.
This tip (13140) applies to Microsoft Excel 2007, 2010, and 2013.

**Program Successfully in Excel!** John Walkenbach's name is synonymous with excellence in deciphering complex technical topics. With this comprehensive guide, "Mr. Spreadsheet" shows how to maximize your Excel experience using professional spreadsheet application development tips from his own personal bookshelf. Check out *Excel 2013 Power Programming with VBA* today!

Excel allows you to enter two different types of formulas in a cell: A regular formula or an array formula. If you need ...

Discover MoreCreating math formulas is a particular strong point of Excel. Not all the functions that you may need are built directly ...

Discover MoreInsert or delete a column, and Excel automatically updates references within formulas that are affected by the change. If ...

Discover More**FREE SERVICE:** Get tips like this every week in *ExcelTips,* a free productivity newsletter. Enter your address and click "Subscribe."

2014-06-22 14:29:15

Michael (Micky) Avidan

----------------------

Function RVRS(Str)

RVRS = StrReverse(Str)

End Function

-------------

use: =RVRS (A1)

***************

Michael (Micky) Avidan

“Microsoft® Answers" - Wiki author & Forums Moderator

“Microsoft®” MVP – Excel (2009-2014)

2014-06-22 13:56:22

Michael (Micky) Avidan

It is very dynamic and is capable to handle any length of Number/String.

Michael (Micky) Avidan

“Microsoft® Answers" - Wiki author & Forums Moderator

“Microsoft®” MVP – Excel (2009-2014)

ISRAEL

2014-06-22 13:08:11

Michael (Micky) Avidan

------------------------------------

Function Reverse_Order(Rng As Range)

If Rng.Count > 1 Then Exit Function

ReDim Arr(Len(Rng))

For D = 1 To Len(Rng)

Arr(D) = Mid(Rng, Len(Rng) - D + 1, 1)

Next

Reverse_Order = Join(Arr, "")

End Function

-------------

so, for a gine value in A1 use: =Reverse_Order(A1)

Michael (Micky) Avidan

“Microsoft® Answers" - Wiki author & Forums Moderator

“Microsoft®” MVP – Excel (2009-2014)

ISRAEL

2014-06-21 20:41:48

Kevin

My interpretation though was a need to reverse random numbers in this case in column B.

In this situation place 1 - 5 etc in column A, 5 - 1 to column C using autofill. Then place VLOOKUP(C1,$A$1:$B$5,2,FALSE) in D and copy it down.

2014-06-21 19:44:00

Erik

Start by highlighting all the columns you want to flip, then pick the Replace command.

Because you are flipping 1 & 5 and 2 & 4, you will have to do an intermediate change for each pair (I chose to use 0).

Find = 1, replace with = 0, click "Replace all".

Find = 5, replace with = 1, click "Replace all".

Find = 0, replace with = 5, click "Replace all".

Find = 2, replace with = 0, click "Replace all".

Find = 4, replace with = 2, click "Replace all".

Find = 0, replace with = 4, click "Replace all".

Done!

Got a version of Excel that uses the
ribbon interface (Excel 2007 or later)?
**This site is for you!** If you
use an earlier version of Excel, visit
our *ExcelTips* site focusing on the menu interface.

**FREE SERVICE:** Get tips like this every week in *ExcelTips,* a free productivity newsletter. Enter your address and click "Subscribe."

Copyright © 2018 Sharon Parq Associates, Inc.

## Comments