EXCEL 文字列操作

解決済

質問者：kinokox
質問日時：2007/07/11 15:17
回答数：4件

教えてください。

たとえば、エクセルのセルの
　ＡＡＡ５５５さくらサクラ
という文字列から、英数字だけ抜き出す方法を教えてください。
文字列は可変（不規則な長さ）で、文字列中には英数の他にひらがな、
カタカナ、漢字があります。
例の結果として、ＡＡＡ５５５を抜き出したいです。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： maron--5
回答日時：2007/07/11 22:13

◆英数字の後にひらがな、カタカナ、漢字が並んでいるものとします

（ひらがな、カタカナ、漢字は順不同でも可）
B1=LEFT(A1,MATCH(1,INDEX(1/(CODE(MID(ASC(A1),ROW($1:$50),1))>5000),),0)-1)

- 0
- 件

通報する

この回答へのお礼

maron-5様
ありがとうございました。
CODE関数の文字コードを>126とし、実行したら英数字を抜くことができました。

通報する

お礼日時：2007/07/17 17:49

No.3

回答者： zap35
回答日時：2007/07/11 16:03

数字と英文字（半角、全角）を抜き出すユーザ定義関数です

まず以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。

次にワークシート画面に戻って
=AtoZ(A1)
のように式を入力してください。A1の部分が文字列が入っているセルアドレスです。

英記号などを抽出文字に追加したかったら
　strPattern = "[0-9A-Za-z０-９Ａ-Ｚａ-ｚ]+-@"
のように後ろに追加してください

Function AtoZ(ByVal trg As Range) As String
Dim RE, mchItems
Dim strPattern As String
Dim idx As Integer
If trg <> "" Then
　Set RE = CreateObject("VBScript.RegExp")
　strPattern = "[0-9A-Za-z０-９Ａ-Ｚａ-ｚ]"
　With RE
　　.Pattern = strPattern
　　.IgnoreCase = True
　　.Global = True
　　Set mchItems = .Execute(trg.Value)
　　If mchItems.Count > 0 Then
　　　For idx = 0 To mchItems.Count - 1
　　　　AtoZ = AtoZ & mchItems(idx).Value
　　　Next idx
　　End If
　End With
　Set RE = Nothing
End If
End Function