CODE(A1):文字コードを表示
"A"は65,"z"は122
ASC(A1):文字を半角にする
SUBSTITUTE(A1,"゙",""):置換・・・濁点をナシに置換している
JIS(A1):全角にする
=IF(CODE(ASC(LEFT(C5,1)))<122,ASC(LEFT(C5,1)),JIS(SUBSTITUTE(SUBSTITUTE(ASC(LEFT(C5,1)),"゚",""),"゙","")))
もしC5レンジの左端の文字の文字コードが122(z)以下ならそのまま、
そうでないならその文字を半角にして濁点をカラに置換し、全角に戻す。