文字列を大文字、小文字、半角、全角、カタカナ、ひらがなへの変換をします。
大文字、小文字への変換は、LCase, UCase を使用します。(StrConv にも同じものがありますが)
文字列を検索する際、検索される方、検索する方を同じ形へ変換をすることで、正しく検索できるようになります。
最終行の取得は、最終行取得(空白まで) (GetBlankRow)を使用しています。
以下のコードは、変換関数の使用方法の説明になります。
Sub CaseConversion()
Dim idx1 As Long
Dim last_row As Long
Dim ws As Worksheet
Set ws = ActiveSheet()
last_row = GetBlankRow(ws) ' 最終行を取得
For idx1 = 2 To last_row
' 小文字へ変換
Cells(idx1, 2) = LCase(Cells(idx1, 1))
' 大文字へ変換
Cells(idx1, 3) = UCase(Cells(idx1, 1))
' 先頭文字のみ大文字
Cells(idx1, 4) = StrConv(Cells(idx1, 1), vbProperCase)
' 全角に変換
Cells(idx1, 5) = StrConv(Cells(idx1, 1), vbWide)
' 半角に変換
Cells(idx1, 6) = StrConv(Cells(idx1, 1), vbNarrow)
' カタカナに変換
Cells(idx1, 7) = StrConv(Cells(idx1, 1), vbKatakana)
' ひらがなに変換
Cells(idx1, 8) = StrConv(Cells(idx1, 1), vbHiragana)
Next idx1
End Sub
変換結果
A列の文字列をB列以降に変換しています。



コメント