日常的にExcelを使っていると、セル内の文字列から「ひらがなだけを取り出したい」と思うことがありませんか？例えば、住所データの中から「ひらがな部分だけを抽出して、カタカナや漢字を除外したい」といった場合です。そんなときに役立つ方法を、初心者の方にもわかりやすくご紹介します。
ひらがなのみを抽出する関数の使い方
Excelのイメージ
Excelでは、特定の文字種（この場合はひらがな）を抽出するために、関数を組み合わせて使用します。以下の手順で進めていきましょう。
セルに入力された文字列からひらがなを抽出する関数
例えば、セルに「こんにちは123ABC」と入力されているとします。この中からひらがなだけを抽出するには、以下の数式を使用します。
excel
=TEXTJOIN("", TRUE, IF((CODE(MID(, SEQUENCE(LEN()), 1)) >= 12353) * (CODE(MID(, SEQUENCE(LEN()), 1)) <= 12435), MID(, SEQUENCE(LEN()), 1), ""))
この数式のポイントは以下の通りです：
* `MID(, SEQUENCE(LEN()), 1)`：セルの文字列を1文字ずつ取り出します。
* `CODE(...)`：文字のコード番号を取得します。
* `IF(...)`：コード番号がひらがなの範囲（12353〜12435）にある場合、その文字を抽出します。
* `TEXTJOIN("", TRUE, ...)`：抽出した文字を結合して1つの文字列にします。
この数式を入力すると、セルB1に「こんにちは」と表示されます。
数式を入力する際の注意点
数式を入力する際は、以下の点に注意してください
* 数式は必ず「Ctrl + Shift + Enter」で入力します。これにより、配列数式として認識されます。
* Excelのバージョンによっては、`SEQUENCE`関数が使用できない場合があります。その場合は、VBAを使用する方法を検討してください。
VBAを使ってひらがなを抽出する方法
VBAを使用すると、より柔軟にひらがなを抽出することができます。以下は、VBAを使ってセル内のひらがなを抽出するコードの例です。
vba
Function ExtractHiragana(ByVal target As String) As String
Dim i As Integer
Dim result As String
result = ""
For i = 1 To Len(target)
If (AscW(Mid(target, i, 1)) >= 12353 And AscW(Mid(target, i, 1)) <= 12435) Then
result = result & Mid(target, i, 1)
End If
Next i
ExtractHiragana = result
End Function
この関数をVBAエディタに追加し、セルで以下のように使用します：
excel
=ExtractHiragana()
これにより、セルのひらがな部分だけを抽出することができます。
よくある質問や疑問
Q1: ひらがな以外の文字（カタカナや漢字）も同時に抽出したい場合はどうすればいいですか？
セルに「こんにちは123ABC」と入力されている場合、以下の数式を使用すると、ひらがな、カタカナ、漢字、数字をそれぞれ抽出できます。
excel
=TEXTJOIN("", TRUE, IF((CODE(MID(, SEQUENCE(LEN()), 1)) >= 12353) * (CODE(MID(, SEQUENCE(LEN()), 1)) <= 12435), MID(, SEQUENCE(LEN()), 1), ""))
この数式では、ひらがなの範囲（12353〜12435）を指定していますが、カタカナや漢字の範囲を追加することで、他の文字種も抽出できます。
Q2: 数式を入力する際にエラーが表示される場合はどうすればいいですか？
数式を入力する際にエラーが表示される場合、以下の点を確認してください
* 数式を入力した後、「Ctrl + Shift + Enter」で配列数式として入力していますか？
* Excelのバージョンによっては、`SEQUENCE`関数が使用できない場合があります。その場合は、VBAを使用する方法を検討してください。
Q3: VBAを使用する際の注意点はありますか？
VBAを使用する際は、以下の点に注意してください
* VBAエディタを開くには、Excelで「Alt + F11」を押します。
* 新しいモジュールを挿入し、上記のVBAコードを貼り付けます。
* セルで関数を使用する際は、`=ExtractHiragana()`のように入力します。
まとめ
Excelでひらがなのみを抽出する方法について、関数とVBAの2つのアプローチをご紹介しました。関数を使用する方法は手軽で、VBAを使用する方法は柔軟性があります。目的や状況に応じて、適切な方法を選択してください。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント