以前から知っていましたが、使う機会がなく使う事もないだろうと 思っていたのですが、急に必要になり慌てて調べました。 範囲を選択し、以下のマクロを実行です。 Sub 全角を半角へ変換() Dim 対象 As Range For Each 対象 In Selection 対象.Value = StrConv(対象.Value, vbNarrow) Next 対象 End Sub Sub 半角を全角へ変換() Dim 対象 As Range For Each 対象 In Selection 対象.Value = StrConv(対象.Value, vbWide) Next 対象 End Sub