セル内データにひらがなが含まれるかどうかを判別したい(エクセル)


以下の様なエクセルデータがあるとします。

タマゴ
トマト
りんご

サンマのシッポ

りんごとサンマのシッポにはひらがなが含まれていますが、それがわかりやすく判別できるように横のセルに●を表示するようにしたいと考えています。

【結果】
タマゴ|
トマト|
りんご|●
鰯|
サンマのシッポ|●



vbaでも関数を使用したオートフィルでも手法は問いません。※容易である方が助かります。
数千件程度のデータなのですが、どんな方法がありますか?

回答の条件
  • 1人1回まで
  • 登録:
  • 終了:2017/08/24 22:21:11
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ベストアンサー

id:a-kuma3 No.1

回答回数4974ベストアンサー獲得回数2154

ポイント200pt

VBA だと、こんな感じで。

Sub mark_contains_hiragana()
    ref_column = 1      ' A列
    last_row = Cells(Rows.Count, ref_column).End(xlUp).Row
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "[あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをんがぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽぁぃぅぇぉゃゅょっ]"
    For r = 1 To last_row
        If re.test(Cells(r, ref_column).Value) Then
            Cells(r, ref_column + 1).Value = "●"
        End If
        DoEvents
    Next
End Sub
id:jamis

回答ありがとうございます。
一発で解決しました(^^

2017/08/24 22:19:37

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません