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.

*Note:*

If you would like to know how to use the macros described on this page (or on any other page on the *ExcelTips* sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

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

**Comprehensive VBA Guide** Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out *Mastering VBA for Office 2010* today!

Searching for a value using Excel's Find tool is easy; searching for that same value using a formula or a macro is more ...

Discover MoreExcel is usually more flexible in what you can reference in formulas than is immediately apparent. This tip examines some ...

Discover MoreIf you have a large amount of data in a worksheet and you want to extract information from the text that meets certain ...

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

2018-09-02 11:00:44

MIchael Armstrong

@Sherri: =if(A2>0,6-A2,0)

2018-09-01 16:17:39

Sherri

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 © 2019 Sharon Parq Associates, Inc.

## Comments