【VBAリファレンス｜実務向け】Excelで「m²」や「x²」を美しく表示する！上付き文字の活用術

ExcelVBA

2026.10.24

導入：なぜ「上付き文字」が重要なのか

実務で単位や数式を扱う際、「m2」や「m3」といった表記をそのままにしていませんか？これらは一見すると意味は通じますが、報告書や見積書としては少し「素人っぽさ」が出てしまいます。正しい表記である「m²（平方メートル）」や「m³（立方メートル）」にすることで、ドキュメントの信頼性が格段に向上します。今回は、Excelで特定の文字だけを上付きにする基本操作と、VBAで効率的に処理する方法を解説します。

基礎知識：Excelにおけるフォント制御の仕組み

Excelのセルは、一つのセル全体に対してフォント書式を設定するのが基本ですが、「セル内の特定の部分だけ」に異なる書式を設定することも可能です。これを実現するには、セルを「編集状態（F2キーを押した状態）」にする必要があります。また、VBAでこの操作を自動化する場合、Characterオブジェクトを使用することで、文字列の「何文字目から何文字分」に対して装飾を行うかを細かく指定できます。

実装：手動設定の手順

1. セルに通常通り「m2」と入力します。
2. セルをダブルクリックするか、[F2]キーを押して編集モードにします。
3. マウスで「2」の部分だけをドラッグして選択します。
4. 右クリックして[セルの書式設定]を選択します。
5. [フォント]タブにある[上付き]にチェックを入れ、[OK]を押します。
これで「m²」と表示されます。

サンプルプログラム：VBAで「m2」を一括変換する

大量のデータに含まれる「m2」や「m3」を一括で「²」「³」に変換したい場合、手作業では時間がかかります。以下のVBAコードを使えば、選択した範囲内の文字列を自動的に上付きへ変換できます。

Sub ConvertToSuperscript()
    ' 選択範囲内の文字列から「m2」を探して「2」を上付きにする
    Dim rng As Range
    Dim i As Long
    Dim pos As Long
    
    For Each rng In Selection
        ' セル内に「m2」が含まれているか確認
        pos = InStr(rng.Value, "m2")
        
        If pos > 0 Then
            ' 「2」の部分だけを上付きにする
            ' Characters(開始位置, 文字数)で指定
            rng.Characters(Start:=pos + 1, Length:=1).Font.Superscript = True
        End If
    Next rng
    
    MsgBox "変換が完了しました。"
End Sub

応用・注意点：現場で陥りやすい罠

注意点1：数値データとの混同
上記のVBAは、セルが「文字列」として入力されている必要があります。数値（100など）が入っているセルに対して実行すると、Excelは自動的に値を「文字列」に変換します。計算式で使用する数値セルには適用しないよう注意してください。

注意点2：一括置換の限界
「置換機能（Ctrl + H）」ではフォントの装飾までは変更できません。そのため、VBAを使ってセル単位で細かく制御するのが、実務における最も確実な解決策となります。

ヒント：
もし「m²」などの文字を単に表示したいだけであれば、Windowsの文字入力で「へいほう」と入力して変換候補から「²」を選択する方が手軽です。状況に応じて使い分けましょう。