Sub Subscript_Macro() '選択セルの数値を総て下付にするマクロ Ver 0.9 1998.11.27
'Masami koguchi [koguchi@sf.airnet.ne.jp] http://www3.airnet.ne.jp/koguchi/
    Dim i As Long '作業文字保持用
    With ActiveCell 'アクティブセルを選択
        For i = 1 To .Characters.Count 'セルの文字を一文字ずつ抽出
            With .Characters(i, 1)
'                .Font.Size = .Font.Size * 0.8 '文字の高さを揃えたい時は.8は係数
               If IsNumeric(.Text) Then '数値として評価できるなら
                    .Font.Subscript = True '下付にするときは
'                    .Font.Size = .Font.Size * 0.5 '単に数字だけを小さくして下付にみせる.5は係数
                Else
                    .Font.Superscript = False 'できないなら解除
                    .Font.Subscript = False '両方指定しないと変えられない
                End If
            End With
        Next i
    End With
End Sub

Sub Superscript_Macro() '選択セルの数値を総て上付にするマクロ Ver 0.9 1998.11.27
'Masami koguchi [koguchi@sf.airnet.ne.jp] http://www3.airnet.ne.jp/koguchi/
    Dim i As Long '作業文字保持用
    With ActiveCell 'アクティブセルを選択
        For i = 1 To .Characters.Count 'セルの文字を一文字ずつ抽出
            With .Characters(i, 1)
'                .Font.Size = .Font.Size * 0.8 '文字の高さを揃えたい時は.8は係数
               If IsNumeric(.Text) Then '数値として評価できるなら
                    .Font.Superscript = True '40上付にするときは
                Else
                    .Font.Superscript = False 'できないなら解除
                    .Font.Subscript = False '両方指定しないと変えられない
                End If
            End With
        Next i
    End With
End Sub