文字変換(小文字,大文字,全角,半角)

文字列を大文字、小文字、半角、全角、カタカナ、ひらがなへの変換をします。
大文字、小文字への変換は、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列以降に変換しています。

コメント