Excel 関数 漢数字変換　全角数字を漢数字に変換する

Excel 関数 漢数字変換　全角数字を漢数字に変換する
縦書き用に漢数字に変換するときの関数です。
ハイフン処理は含めていないので、追加で半角置換も必要ですね。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(JIS(C2),"１","一"),"２","二"),"３","三"),"４","四"),"５","五"),"６","六"),"７","七"),"８","八"),"９","九"),"０","〇")