Where it the missing superscript numbers?

You can set any character to be a superscript in Excel. Just go into the Font dialog and choose Superscript.

If you need to do this to one character in a cell, select the character in the Formula box, then click the small arrow at the bottom right of the Font group in the Ribbon. You can then go to the Font sheet in the dialog and select Superscript.

Regards

Gordon

This (your) function is only useful when superscripting whole cells/bigger units of characters. Doing this with single characters everywhere is too cumbersome. AND: It does not make the missing characters on the symbol chart appear, which this topic is about.

And copying any super- or subscripted characters of your way will turn those into regular characters when pasted, and make the whole process wasted.

(1) “This (your) function is only useful when superscripting whole cells/bigger units of characters. Doing this with single characters everywhere is too cumbersome.”

The conversion from regular to super- (and sub-)scripts has its reasons and every time you have a choose to accept the rules of their application or simply neglect. It depends. I meet this neglecting, especially in lower level technical materials, quite regularly. A sign of the time.

Nevertheless, the shame is largely on Microsoft or other character-code authors. The superscripts  º ¹ ² ³ as autonomous characters are not easy to find, as you have revealed; decimal ASCII code for ² is 178, for example. This code numbering does not proceed before the rest of other digit series; who knows why the code authors considered this foursome not deserving repetition to complete the whole decade.

(2)  “And copying any super- or subscripted characters of your way will turn those into regular characters when pasted, and make the whole process wasted.”
Copying is OK (I hope so even with advanced Excel editions), the trouble is referencing; you are right about the loss of super- or subscript formatting. The chart is an especial nasty case. You cannot put such formatted ranges into the legend at all. I have disclosed that even the axis names cannot be formatted by individual characters since ? edition (my 2003 still allows this treatment). The only help seems to be the conversion to UNICODE characters.

 (3) My domain is natural science. So I am meeting with two kinds of necessity for sub- and superscripts: chemical formulas or physical units. Both can be treated by means of macros (in add-in) that convert fluently written word into the correct format. Regretfully, such macros have not undergone any wider spread.

(4) The following user-defined function converts the range with correctly formatted super- or subscripts into another range with corresponding UNICODE characters.

Function ANSI2UNI(ANSIRng As Range) As Variant

'Formula converts the numerals written in ANSI font in sub- or superscripts

'into UNICODE code.

'Even "+" and "-" signs are converted if being sub- or superscripted (ion charges,

'powered physical units).

'Preferably, the cell with formula should be formatted in a UNICODE font.

Dim I As Long, Cha As Characters, ChaT As String

Dim Sp As Boolean, Sb As Boolean

Const LGreekBegin As Long = 8304, UGreekBegin As Long = 8320

ANSI2UNI = ""

If IsNumeric(ANSIRng) Then Set ANSI2UNI = ANSIRng: Exit Function

For I = 1 To Len(ANSIRng)

  Set Cha = ANSIRng.Characters(I, 1)

  ChaT = Cha.Text

  With Cha.Font

    If .Name = "Symbol" Then ChaT = ChrW(Asc(ChaT) + 848)

    If .Superscript Then Sp = True Else Sp = False

    If .Subscript Then Sb = True Else Sb = False

  End With

  Select Case ChaT

    Case "+"

      If Sp Then ChaT = ChrW(8314)

      If Sb Then ChaT = ChrW(8330)

    Case "-"

      If Sp Then ChaT = ChrW(8315)

      If Sb Then ChaT = ChrW(8331)

    Case "x", "×"

      If Sb Then ChaT = ChrW(8339)

    Case 0 To 9

      If Sp Then

        Select Case ChaT

        Case "2", "3": ChaT = ChrW(176 + CLng(ChaT))

        Case "1": ChaT = ChrW(185)

        Case Else

          ChaT = ChrW(CInt(ChaT) + 8304)

        End Select

      End If

      If Sb Then ChaT = ChrW(CInt(ChaT) + 8320)

  End Select

  ANSI2UNI = ANSI2UNI & ChaT

Next I

End Function

The results of two such conversions are showed in the table below; formatted numerals in the left column are converted into autonomous characters in the right column.

BTW: The little numerals are much better readable in Calibri then in ArialUNI…

Regards

PB