エクセルの全角・半角混在データの変換【統一の便利さ】！基本から応用まで変換の方法

「入力したデータを半角か全角に統一したい」
「カタカナは全角に、英数字は半角に変換できない？」

入力後に改めて見ると「しまった！」と思いがちな半角・全角の混在。
後から直すとなるととても面倒ですよね。
一括で簡単に統一できる方法があったら…とお困りの方もいらっしゃるでしょう。

ここではエクセルで半角・全角へ統一するための基本手順やボタン一つで変換できるマクロコードの紹介、そして変換の応用テクニックを２つ紹介します。
半角・全角の統一を覚えれば、見栄えの良い表を作ることができますよ！

1.全角⇔半角の変換基本手順

まずは全角⇔半角変換の基本手順からです。
ここでは「JIS関数を使って全角に統一する」、「ASC関数を使って半角に統一する」方法をみてみましょう。

1-1.全角に統一するには？（JIS関数）

始めに「JIS関数を使って全角に統一する」方法からです。
ＪＩＳ関数は、半角の英数カナを全角に変換する関数で、次のように使います。

（１）全角で表示したいセルを選択する

（２）「=JIS(」と入力後、「fx」ボタンを押す

（３）全角にしたいセル番号を指定する

（４）完了

これで数式を下のセルまでコピーすれば、半角も全角に変換されて表示を統一することができます。

もし数式での表示が作業場都合が悪ければ、コピー⇒値の貼り付けで値に変換してしまいましょう。

1-2.半角にするには？（ASC関数）

次に「ASC関数を使って半角に統一する」方法です。
ASC関数は、全角の英数カナを半角に変換する関数で、次のように使います。

（１）半角で表示したいセルを選択する

（２）「=ASC(」と入力後、「fx」ボタンを押す

（３）半角にしたいセル番号を指定する

（４）完了

これで数式を他のセルにもコピーすれば、全角も半角に変換されて表示を統一することができます。

次にボタン一つで簡単に変換できるマクロコードを紹介します。
「半角を全角へ」と「全角を半角へ」の両方見てみましょう。

2-1.半角を全角へ

まずは「半角を全角へ」のマクロコードからです。
このコードは指定範囲のみを全角へ変換するマクロになります。

（１）「Alt」+「F11」キーを押し、Visual Basicを開く

（２）左のツリー上で右クリックを押し、「挿入」→「標準モジュール」を選択する

（３）追加されたModule1に、「Sub～End Sub」までの以下のコードを張り付ける

Sub 指定した範囲のみ半角を全角へ()
Dim i As Long
For i = Selection(1).Row To Selection(Selection.Count).Row
For j = Selection(1).Column To Selection(Selection.Count).Column
Cells(i, j) = StrConv(Cells(i, j), vbWide)
Next j
Next i
End Sub

（４）変換したい範囲を選択する

（５）「Alt」+「F８」キーを押し、「指定した範囲のみ半角を全角へ」を選択して「実行」を押す

（６）完了

これで簡単に指定した範囲のみ全て全角になります。

2-2.全角を半角へ

次に「全角を半角へ」のマクロコードからです。
このコードは指定範囲のみを半角へ変換するマクロになります。

（１）「Alt」+「F11」キーを押し、Visual Basicを開く

（２）左のツリー上で右クリックを押し、「挿入」→「標準モジュール」を選択する

（３）追加されたModule1に、「Sub～End Sub」までの以下のコードを張り付ける

Sub 指定した範囲のみ全角を半角へ()
Dim i As Long
For i = Selection(1).Row To Selection(Selection.Count).Row
For j = Selection(1).Column To Selection(Selection.Count).Column
Cells(i, j) = StrConv(Cells(i, j), vbNarrow)
Next j
Next i
End Sub

（４）変換したい範囲を選択する