• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• a-kuma32017/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
  

  スター

  • 

    1件のコメントを見る

  • jamis 2017/08/24 22:19:37

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

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2017-08-24 09:55:11

終了日時

2017-08-24 22:21:11

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者312日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者1日前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者211日前
• 内定してほしいポケモンはいますか？匿名質問者1日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ