NEED HELP PLEASE

[manilla_r22]

HOW DO I GET THE * TO CHANGE TO (a) in superscript.
Need the parentheses as well.

I tried the replace button, it replaces the whole word as well.

I have multiple large files and trying to find the most efficient method

For example, i want it to look like this

 

[manilla_r22]

It will be better if you share sample file.

Give me a moment

 

[manilla_r22]

Give me a moment

how do i share a sample

 

[Akbarov]

Dropbox.com

Dropbox helps you simplify your workflow. So you can spend more time in your flow.

www.dropbox.com

 

[manilla_r22]

do i create a link ?
do i create a dropbox account

 

[Akbarov]

Nevermind. Use this code.

Sub find_and_replace()

Dim find_value, replace_value As String

find_value = "~*"
replace_value = "(A)"

    Columns("C").Replace What:=find_value, _
                            Replacement:=replace_value, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False

MsgBox "Done With Replacement!"

End Sub

 

[manilla_r22]

beautiful thankyou,
now how do you make all the (a) superscript

 

[Akbarov]

It will do that also, for range from C2 to C1000

Sub Superscript_part_value()

Dim ws As Worksheet
Dim rg As Range
Dim st As Long

Set ws = ActiveSheet
Set rg = ws.Range("C2:C1000")

For Each cll In rg

If InStr(cll, "(A)") > 0 Then
st = InStr(cll, "(A)")
cll.Characters(Start:=st, Length:=3).Font.Superscript = True
End If

Next

End Sub

 

[manilla_r22]

DO I KEEP BOTH? OR JUSTUSE THE LASTONE?

 

[Akbarov]

Use this only

Sub find_and_replace()

Dim find_value, replace_value As String

find_value = "~*"
replace_value = "(A)"

    Columns("C").Replace What:=find_value, _
                            Replacement:=replace_value, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False


Dim ws As Worksheet
Dim rg As Range
Dim st As Long

Set ws = ActiveSheet
Set rg = ws.Range("C2:C1000")

For Each cll In rg

If InStr(cll, "(a)") > 0 Then
st = InStr(cll, "(a)")
cll.Characters(Start:=st, Length:=3).Font.Superscript = True
End If

Next

MsgBox "Done With Replacement!"

End Sub

 

[manilla_r22]

YOU ARE THEE LIFE SAVER!

THANKS A MILLION!