exelで行の最初にあるカタカナ単語だけを抜き出す

質問

exelで行の最初にあるカタカナ単語だけを抜き出す方法を教えて下さい カタカナの単語と他の文字の単語の境目で分け、
２回めにカタカナが出てきた場合は抜き出さないようにしたいです

回答No.1

imogasi · ベストアンサー

人間の目で見れば、すぐわかりが、多分エクセルの手作業のメニューの検索では、判別・抜出し、が出来ないのでは。
ーー
そこでＶＢＡ。
標準モジュールに
Sub 全角かな1()
'Ｓｈｅｅｔ１のＡ列を対象とする。
lr = Range("A100000").End(xlUp).Row
For i = 2 To 6
l = Len(Cells(i, "A"))
s = ""
For j = 1 To l
If Mid(Cells(i, "A"), j, 1) Like "[ア-ン]" Then
s = s & Mid(Cells(i, "A"), j, 1)
Cells(i, "B") = s
Else
Exit For　'初出分でカタカナの続きが途切れたら
End If
Next j
MsgBox s
Next i
End Sub
ーーー
例データ　Ａ列に置く例
Ａ２：Ａ６
旅行に行く気分になれない
ロンドンなら行ってみたい
このセルの値はなに
ロケットを飛ばす。
ウイスコンシン州ヘ大統領が行った
結果　Ｂ列に出す例
Ｂ３とＢ６で
ロンドン
ウイスコンシン
取り急ぎなので、細部に不安あるが、どうですか。
　熟練者は正規表現などでびしっとやるだろうが、
(w)駆りやすさで挙げた。

補足

マクロのシート上での適用の仕方がわかりません

回答No.2

masnoske

回答を締め切らずに同じ質問をするのはルール違反です．
以下に回答しました．

https://okwave.jp/qa/q9820839.html