Excelで、一部の数字を上付き文字に一括置き換えしたい。

Question

・OSは「Windows 10」

・Excelは「2016」、バージョンは「1712」

・質問

「Excelにて入力済の文字列の内、ある文字・数字のみを上付き文字に一括置き換えたい。」

（コミュニティにあるCO2を例にした「上付き文字・下付き文字をまとめて設定する方法はありませんか？」を試してみましたが、Wordには有効ですが、Excelでは置き換えたい文字・数字を含んだセル全体が上付き文字・下付き文字になってしまいます。）

・良い解決方法をお教えください！

Answer 1

n. hojo 様

お時間を有難うございます。

誠にお恥ずかしい限りですが、当方「VBA」なるテクニックを使うことができません。（ちなみにマクロなる手も使えません！）

取り急ぎ

御礼まで。

Answer 2

VBAを使っていいのであれば、下のようなコードでできるだろうと思います。

（簡単な動作テストしか行っていません）　m(_ _)m

このコードは、自身の1枚目のシート、A列1行目から10行目までのテキストを読み

"K"があったら、それを上付き文字に変換するコードです。

Sub Mytest()

　Dim LineCounter As Integer

　For LineCounter = 1 To 10

　　ToUe 1, LineCounter, 1, "K"

　Next LineCounter

End Sub

Function ToUe(SheetsNum As Integer, LineNum As Integer, ColNum As Integer, Moji As String)

　Dim MojiCnt As Integer

　Dim wkCount As Integer

　With ThisWorkbook.Sheets(SheetsNum)

　　MojiCnt = Len(.Cells(LineNum, ColNum).Value)

　　If MojiCnt = 0 Then Exit Function

　　For wkCount = 1 To MojiCnt

　　　If Mid(.Cells(LineNum, ColNum).Value, wkCount, 1) = Moji Then

　　　　.Cells(LineNum, ColNum).Characters(Start:=wkCount, Length:=1).Font.Superscript = True

　　　End If

　　Next wkCount

　End With

End Function