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

Pocket

前に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

関連記事

[ 2019年3月12日 | カテゴリー: Excel | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報