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) '

[takryou79]

VBA 正規表現