Excelで半角カタカナを全角カタカナに変換するマクロ

前にWordでカタカナを半角から全角に変換するマクロを紹介しましたが、今回はExcel版を作りました。

Sub 半角カタカナを全角カタカナに変換()
'20190312 作成
'全角カタカナ（ァ...ヶ）
For c = -31936 To -31850
zen = Chr(c)
han = StrConv(zen, vbNarrow)
Call 置換(han, zen)
Next c
'ｰ→ー(長音)
han = "ｰ"
zen = "ー"
Call 置換(han, zen)
End Sub

Sub 置換(moto, saki)
'20190312 作成
Cells.Replace What:=moto, Replacement:=saki
End Sub