exelで各行最初のひらがなと漢字抽出

質問

exelで各行にあるひらがなと漢字と他の文字が混じったテキストの中から全行含めて一番初め、一番左側に出てきたひらがな、漢字単語だけ一括で抽出しあいている列に表示する方法を教えて下さい　ひらがな、漢字単語はひらがな、漢字のあとにひらがな、漢字以外の文字が続くところより前の部分と判断したい　最大１００文字　ひらがな、漢字が続く中のの句読点もすべて抜き出したい
exelで各行にあるひらがなと漢字と他の文字が混じったテキストの中から全行含めて一番初め、一番左側に出てきたひらがな、漢字単語だけ一括で抽出しあいている列に表示する方法を教えて下さい

回答No.12

masnoske · ベストアンサー

PicChar関数の以下の部分を修正します。

If Not (isJisKanji(str) Or isHiragana(str, "、。、。")) Then

漢字だけの場合
If Not isJisKanji(str) Then

ひらがなだけの場合
If Not isHiragana(str, "、。、。") Then

それぞれ別の関数としてください。
たとえば PicJisKanji とPicHiragana の2つの関数にします。

補足

御回答ありがとうございます
PicHraganaの式のほうが一番最初のひらがな漢字単語だけを抜き出せました
PicHraganaの式の結果＃VALUE！とエラーのの所だけにA列の値をそのまま移せたら良いと思います
PicChar()の式は一番最初のひらがな漢字単語だけでなく行のすべてのひらがな漢字を抜き出します
上の式で漢字とひらがなを分けて抜き出せましたので日本のJISコード漢字に問題は有りません

回答No.2

imogasi

前の質問の回答に、何の反応もせず、「ひらがな」を「漢字」に変えて質問していると思うが、マナーが悪いと思う。前の質問を締め切って、この質問でも出すべきではないか。
一般に、こういう文章データの、文字種に注目してして、判定や抜出をやるのは、相当勉強をしないとむつかしいのだ。
勉強しても、なかなか適当な方法が、専門家でないとできないばあいが多いと思う。
ーー
また、
セルのデータ例も１つも上げずに質問しているのが、適切な回答を
出し難くしていると思う。
実際例が公開しにくいなら、特徴をまねて、漏らさず特徴を盛り込んだ例を５例前後ぐらいあげて質問することだ。
質問者も時間を使って質問文や例を作ってほしい。回答者も時間を使うのだから。
ーー
まや、VBAは経験あるかなどの、質問者の技量を注記することも、この質問に関しては、必要と思う。この問題は簡単な関数だけで済むものでないと思うので。

回答No.1

masnoske

https://okwave.jp/qa/q9830113.html
こちらの No.5のマクロモジュールを利用して下さい．
PicHiragana関数の以下の部分を
'--- ここから
' ひらがな以外を半角スペースに置換
For i = 1 To Len(src)
str = Mid(src, i, 1)
If Not isHiragana(str) Then
Mid(src, i, 1) = " "
End If
Next
'--- ここまで

以下のように置き換えてください．
'--- ここから
' ひらがな，句読点とJIS漢字以外を半角スペースに置換
For i = 1 To Len(src)
str = Mid(src, i, 1)
If Not (isJisKanji(str) Or isHiragana(str,"、。、。"))
Mid(src, i, 1) = " "
End If
Next
'--- ここまで

isHiragana関数には，ひらがな以外の文字をひらがなと認識させるオプションがあります．
句読点であれば，オプションに "、。、。" を設定することでひらがなと認識します（前の2つは半角文字，後ろの2つは全角文字）．
このオプションは isJisKanji関数と isKatakana関数にも付けてあります．

補足

ご回答ありがとうございます(),【】などのカッコ内のひらがな、漢字も抜き出せますか？