엑셀 화학식 아래첨자 단축키 질문이요ㅜㅜ여기다 질문해도 되나요??

게시판 컴게에 해도될런지...본삭금이라 삭제도 못하는데 ㅜㅜ

제가 엑셀에 화학물질을 옮겨야 하는데 갯수가 아주 많은지라 일일이 하나하나 블록지정해서 숫자를 아래첨자로

바꾸기에는 시간이 너무들어요ㅜㅜ

보니까 매크로써서 하는방식이 있던데 제가 물분자를 예로들어서 매크로 지정했는데

단축키 누를때마다 물분자가 생기더라는..ㅠㅠㅠㅠ

혹시 여러셀을 선택하였을때 모든 숫자는 아래첨자로 수정되게하는 방법은 없나요??

네이버에 모든숫자는 아래첨자로 바꾸는 방식이 있는것같던데

다짜고짜

Dim str As String, char As String
Dim intLen As Integer, i As Integer
Dim r As Range

For Each r In Selection

        str = r.Value
        intLen = Len(str)

        For i = 1 To intLen
            char = Mid(str, i, 1)
                If IsNumeric(char) Then
                    r.Characters(i, 1).Font.Subscript = True
                End If
        Next i

Next r

End Sub

이런걸 넣으라고하는데 어디다 넣는지 잘 모르겠고..ㅜㅜ

혹시 설명해주실 분 계신가요ㅜㅜ 엑셀을 이제 막다루기 시작해서 너무 어렵네요ㅜㅜ신입이라 물어보기도 애매하구ㅜㅜ