Excelの全角->半角変換関数であるASC()はVBAだと指定した文字の文字コード (Shift_JIS) を返す関数なので注意。 StrConv(文字列,vbNarrow); ネタ元 http://officetanaka.net/excel/vba/function/StrConv.htm