Change Subscript to Markup Value

[joand]

The code below converts a string to chemical formula (subscript numeric characters). If I want to change the subscript characters to a markup character ("_") what should I do? For example CH2CH2CH3 to CH_2CH_2CH_3, or C6H11 to C_6H_1_1

Sub test()

For x = 1 To Len(ActiveCell)
    char = Mid(ActiveCell, x, 1)
    If Asc(char) >= 48 And Asc(char) <= 57 Then ActiveCell.Characters(Start:=x, Length:=1).Font.Subscript = True
Next x

End Sub

 

[Sektor]

Change subscript or add underscore before subscript?

 

[Ruddles]

Or add an underscore before each digit of each subscript?

 

[joand]

Add underscore before each numeric value. but for double numeric digits such H11, each has to be added an underscore, H_1_1.

just like in the output above.

 

[Sektor]

UDF

Function Subscr(rng As Range) As String

    Dim s As String, i As Integer, char As String
    
    Application.Volatile
    
    For i = 1 To Len(rng)

        char = Mid(rng, i, 1)

        If IsNumeric(char) Then
            s = s & "_" & char
        Else
            s = s & char
        End If

    Next

    Subscr = s

End Function

 

[joand]

wow Sektor. this is great! thanks