正規表現を利用して半角カナを全角に変換する(RegExpオブジェクト) (Excel 2002/2003/2007/2010/2013/2016) ツイート 正規表現を使って、アクティブシートに入力された半角カナを全角に変換します。 Sub Sample() Dim c As Range Dim myStr As String Dim Match As Object, Matches As Object With CreateObject("VBScript.RegExp") .Pattern = "[\uFF61-\uFF9F]+" '---(1) .Global = True For Each c In ActiveSheet.UsedRange myStr = c.Value If Len(myStr) > 0 Then Set Matches = .Execute(myStr) '
![Excel VBA を学ぶなら moug モーグ | 即効テクニック | 半角カナのみを選択的に全角に変換する](https://cdn-ak-scissors.b.st-hatena.com/image/square/7a7d5541370db4d287568a48b2801a605e565dc4/height=288;version=1;width=512/https%3A%2F%2Fwww.moug.net%2Ftech%2Fexvba%2Fimg%2Fimg0140015.jpg)