半角カナのみ全角カナに変換する｜VBAサンプル集

Sub sample() Dim objRange As Range For Each objRange In ActiveSheet.UsedRange Call 半角カナto全角カナ(objRange) Next End Sub Private Sub 半角カナto全角カナ(ByRef objRange As Range) Dim strIn As String '元の文字列 Dim strOut As String '変換後の文字列 Dim strKana As String '変換対象のカナ Dim i As Integer '数式、文字列以外は対象外 If objRange.HasFormula Or _ VarType(objRange.Value) <> vbString Then Exit Sub End If strIn = objRange.Value strOut

[fedelini]

半角カナ“のみ”変換 カナ記号は条件式