Superscripts in Find and Replace

Kirk needs to search for things like "yd2" and replace it with "yd2" where the "2" is superscripted. He wonders if there is a way to do that in Excel.

The find and replace capabilities of Excel are more limited than those of Word, where such replacements are relatively easy. While you could export your information to Word, do the replacements, and then import it back into Excel, there are some things you can do without ever leaving Excel.

First, however, let's examine something that you might reasonably think would work, but doesn't really. Note that the Replace tab of the Find and Replace dialog box seems to provide a way to specify attributes for the text you want to use as the replacement. This might lead you to think that you could do the following:

1. Replace all instances of yd2 with yd$*$
2. Replace all instances of $*$ with a superscripted 2.

While this sounds good in theory, it won't work. You can follow the steps, including making sure that the replacement 2 is set to be superscript. The problem, however, is that Excel applies the superscript format to the entire cell, not just to the 2. Thus, you end up with yd2 completely as superscript.

You could, if you wanted, skip superscripting all together and just use a typeface character that appears superscripted. If you use the Symbol dialog box, you can find the digits 0 through 3 that appear superscripted. If you use the superscripted digit 2 (ASCII 178) in your replacement text, then you can get the desired appearance. Follow these steps:

1. Press Ctrl+H to display the Replace tab of the Find and Replace dialog box. (Click here to see a related figure.)
2. In the Find What box enter yd2.
3. In the Replace With box enter yd and then hold down the Alt key as you type 0178 on the numeric keypad.
4. Click Replace All.

Finally, if you really want to use superscripts, your best bet is going to be using a macro to do the formatting. The simplest method is tied to the specific example provided—making the 2 in yd2 superscript.

Sub DoConvert()
    Dim c As Range

    For Each c In Selection.Cells
        If c.Value = "yd2" Then
            c.Characters(3, 1).Font.Superscript = True
        End If
    Next
End Sub

To use the macro, select the cells you want to modify, then run the macro. Each cell in the selection is stepped through and checked to see if it contains the text yd2. If it does, then the third character (the 2) is made superscript; the rest of the cell is undisturbed.