upper case for the last two number in a cell

[elainiee]

Hello,

I have an excel table of one column (No. 1-100).
The 100 cells are composed of values such as 1.98025, 2.34525, and 6.42325.
I want to make all the "25" upper case and keep the other number the same.

Please kindly advise how to code the need without changing the setting 100 times.
Thank you.

 

[Jonmo1]

Not sure I understand what you mean by an Upper Case 'Number'
As far as I know, there's no such thing as Upper and/or Lower Case Numbers.
There are Upper Case and Lower Case 'Letters' Aa Bb etc.. But not numbers.

 

[elainiee]

Hello,

I need to modification my question.
I want to make all the "25" in the upper place of a cell, such as 1"st".
Thank you.

Hello,

I have an excel table of one column (No. 1-100).
The 100 cells are composed of values such as 1.98025, 2.34525, and 6.42325.
I want to make all the "25" upper case and keep the other number the same.

Please kindly advise how to code the need without changing the setting 100 times.
Thank you.

 

[Jonmo1]

Still not clear what you mean by upper place of a cell

Can you give some before AND after examples?

 

[Piktro]

Still not clear what you mean by upper place of a cell

Can you give some before AND after examples?

I believe he is looking to format only a portion of the cell with "superscript" formatting.

Unfortunately this is not a possibility with excel UNLESS you separate the "25" with a space - then it would be.
Is this something you would be willing to do just for the format change?

 

[elainiee]

Yes, I need a "superscript" formatting.
Please kindly advise how to make it for 25 100 times with a space.
many thanks.

Elaine

 

[Piktro]

Assuming the data is in Column B, the sheet name is Sheet1, and there are 7 characters in each piece of data... this will work

Sub ReplaceSup()
    Worksheets("Sheet1").Columns("B").Replace _
    What:="25", Replacement:=" 25", _
    SearchOrder:=xlByColumns, MatchCase:=True
    
    With Worksheets("Sheet1").Columns("B").Characters(Start:=7, Length:=2).Font
        .Superscript = True
    End With
End Sub

It's probably very messy, so you may want to wait for someone else with Macro experience to come around and solve it - but it's a good start! haha

 

[elainiee]

Thanks a lot.
What if the number of character (actually they are digits) are 6 or 7, and I wanna the last two digits to be superscript?

Elaine