Excel VBA を学ぶなら moug モーグ | 即効テクニック | 半角カナのみを選択的に全角に変換する正規表現を利用して半角カナを全角に変換する（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) '
