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

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