Excel。VBA。ひらがなで入力されているのでカタカナに一括変換したい
＜Excel VBA＞
データを確認したところ、カタカナで入力してほしかったのに、ひらがなで入力されているデータが数多くあることが判明しました。
少ない修正数ならば、いいかもしれませんが、修正数が多いとなると、厄介です。
一括で変更する関数はありませんし、ひらがなに変換する関数もありません。
そこで、Excel VBAで対応することにしました。
作ってみたのは、次のプログラム文です。
Sub ひらがなカタカナ()
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lastrow
Cells(i, "c") = StrConv(Cells(i, "c"), vbKatakana)
Next
End Sub
実行してみましょう。
C列のフリガナは、すべてカタカナになっていることが確認できました。
ではコードを確認してみましょう。
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
変数宣言です。
lastrowはデータの最終行の番号を代入させています。
For i = 2 To lastrow
Cells(i, "c") = StrConv(Cells(i, "c"), vbKatakana)
Next
For文で繰り返し処理をしております。
何を繰り返しているのかというと、
Cells(i, "c") C列のセルに、
StrConv(Cells(i, "c"), vbKatakana)
を代入させています。
StrConv(Cells(i, "c"), vbKatakana) で、ひらがなをカタカナに変換させています。
StrConv関数は、文字種を変換できる関数です。
そして、vbKatakanaは、ひらがなをカタカナに変換するという文字種の指定です。
よって、ひらがながカタカナに変換することができたというわけです。
なお、vbKatakanaをvbHiraganaに指定すれば、カタカナをひらがなにすることができます。
