Excelすごい改善　すごいエクセル

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 = ""
　　strKana = ""
　　For i = 1 To Len(strIn)
　　　　'161(｡)～223(ﾟ)を半角ｶﾅと判定
　　　　'カナ記号(｡｢｣､･)を除く場合は、166(ｦ)～とする
　　　　If Asc(Mid(strIn, i, 1)) >= 161 And _
　　　　　　Asc(Mid(strIn, i, 1)) <= 223 Then
　　　　　　strKana = strKana & Mid(strIn, i, 1) 'カナを変数に追加
　　　　Else '半角カナ以外
　　　　　　If strKana <> "" Then
　　　　　　　　strOut = strOut & StrConv(strKana, vbWide) '全角変換
　　　　　　　　strKana = ""
　　　　　　End If
　　　　　　strOut = strOut & Mid(strIn, i, 1)
　　　　End If
　　Next
　　If strKana <> "" Then
　　　　strOut = strOut & StrConv(strKana, vbWide) '全角変換
　　End If
　　objRange.Value = strOut 'セルのValueへ戻す
End Sub