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