「数字・アルファベットは半角・カタカナは全角」Excelで全角・半角を処理する関数・マクロ

2015年2月27日

URLをコピーしました！

PCで入力する際、全角と半角は明確に使い分けるべきです。
全角、半角が混在すると処理をするときに困ります。
特にExcelでは欠かせません。
スクリーンショット 2015 02 27 8 58 22

1 全角と半角は別物
2 ルールの例
3 Excelで全角・半角の処理をするならば

全角と半角は別物

「Excel」と「ＥＸＣＥＬ」
「ｾﾐﾅｰ」と「セミナー」
「100」と「１００」

見た目が違うだけで、どちらを使っても問題ないような感じもします。

ただ、データとして扱うのであれば、明確に使い分けなければいけません。
全角のものと、半角のものは別物と判断されるからです。
意識しておかないと困ることがあります。

また、見た目の上でも、アルファベット、カタカナ、数字を全角にするか半角にするかを決めておくべきです。
自分なりに決める、会社として決めるといったルールを決めておきましょう。

ルールの例

私の場合は、

英語は、半角
カタカナは全角
数字は半角

というルールです。

Excel上だけではなく、このブログも、メールも統一しています。

勤めていたところは、このルールがすべて逆だったので困りました。
（辞めた理由の1つです）

プリントアウトしたときは、全角のアルファベットや数字がきれいに見えることもありますが、PC上で見ると違和感があり、Excelで処理することも考えると、このルールがしっくりきます。

入力フォームで、全角数字や全角アルファベットを強制されると嫌なのですが、これは好みの問題もあるのでしかたありません。

半角のカタカナはネット上や2ch（2ちゃんねる）でよく使われます。
どちらかといえば仕事上は、さけた方がいいでしょう。
（世代によるかもしれませんが）

Excelで全角・半角の処理をするならば

Excel上で、全角・半角が混じっている場合、関数で処理できます。

JIS関数は、半角を全角にする関数、ASC関数は、全角を半角にする関数です。

スクリーンショット 2015 02 27 9 09 00

=JIS(A1）といれれば全角に、=ASC（A1）といれれば半角になります。

全角、半角が異なると、IF関数でも別物と判断され、VLOOKUP関数でも別物と判断されて、処理に支障があるのです。

「数字とアルファベットを半角に、カタカナは全角に」という場合はマクロを使うしかありません。
サンプルとして次のようなものを作ってみました。

スクリーンショット 2015 02 27 9 16 02

A列（セルA2から下）にある文字列を、「数字とアルファベットを半角に、カタカナは全角に」してB列に表示するマクロです。

いったん、すべてを全角にします。

「ﾏﾝｼｮﾝA-203」→「マンションＡ−２０３」

１文字ずつチェックして、数字・アルファベット以外ならそのまま全角に、数字・アルファベットだったら半角にします。

「マ」→数字・アルファベット以外→「マ」
「ン」→数字・アルファベット以外→「ン」
・
・
・
「Ａ」→数字・アルファベット→「A」
・
・
という処理です。

Sub henkan()

    Dim i
    Dim j
    Dim zenkaku
    Dim moji
    Dim word
    
    For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
        '■すべての語をいったん全角にする
        zenkaku = StrConv(Range("a" & i).Value, vbWide)
        word = ""
        
        '■1文字ずつ、数字・アルファベットか、カタカナかをチェック
        For j = 1 To Len(zenkaku)
            moji = Mid(zenkaku, j, 1)
            
            '■英語・アルファベット以外だったらそのまま全角
            If moji Like "[ァ-ヶ]" Then
                word = word & moji
            '■英語・アルファベットだったら半角に
            Else
                word = word & StrConv(moji, vbNarrow)
            End If
        Next
        
        '■結果をB列に入力
        Range("b" & i).Value = word
    Next

End Sub

サンプルはこちらです。
EX-ITサンプル　半角全角

人が作ったもの、システムから取り出したもので全角・半角がルール通りでなければ、上記の方法で処理しましょう。

それ以前に自分（または組織）で、ルールを作っておくことが大事です。
データの作り方、入力方法も効率化に大きく影響してきます。
意識していきましょう。