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


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

タマゴ
トマト
りんご

サンマのシッポ

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

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



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

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2017/08/24 09:55:11
  • 終了:2017/08/24 22:21:11

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4605ベストアンサー獲得回数19432017/08/24 13:48:41

ポイント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

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません