Ｅｘｃｅｌの文字数が決まっていない文字列の抽出

教えてください。Ｅｘｃｅｌで、文字数の決まっていない文字列を抽出したいのですが、例えば、

セルＡ1 ：　プロジェクト1 簡単な文章 2352 PD_JOK
セルＡ2 ：　プロジェクト13 複雑な文章列とは決まっていない 2453 AO_JKI
・・・・・・
というセルから、
プロジェクト名から、半角数字前までの文字数が決まっていない文字列「簡単な文章」や「複雑な文章～」をセルＢ列に抽出する方法を教えていただきたいのですが、
そして、半角数字後の半角英字「PD_JOK」をセルＣ列に抽出する方法も同時に教えてください。
万単位でデータがあるので、関数を使わないと難しいです。
よろしくお願い致します。

No.5 ベストアンサー 回答者： Wendy02 回答日時： 2006/08/24 10:24

こんにちは。

スペースのない場合を想定しました。
以下は、汎用性がありますので、他にも使用できます。
'-----------------------------------------------------------
Function ReReplace(myStr As String, strPattern As String)
'myStr　元の文字, strPattern　正規表現パターン
　Dim Matches As Object
　Dim Match As Object
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = strPattern
　　　　.Global = False
　　If .Test(myStr) Then
　　　 Set Matches = .Execute(myStr)
　　　 Set Match = Matches(0)
　　　 If Match.SubMatches.Count > 0 Then
　　　　 ReReplace = Trim$(Match.SubMatches(0))
　　　 Else
　　　　 ReReplace = Trim$(Match.Value)
　　　 End If
　　　 Set Match = Nothing
　　　 Set Matches = Nothing
　　End If
　　End With
End Function

'--------------------------------------------------------
Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以上のコードを貼り付けて、Alt　+　Q で、画面を閉じます。


ワークシートに戻ったら、

「プロジェクト1 簡単な文章 2352 PD_JOK」
（スペースがあるなしは関係がありません)

抜き出し; 簡単な文章

=REREPLACE(A1,"\d([^\d]+)")

抜き出し; PD_JOK

=REREPLACE(A1,"\d{4}([^\d]+)$")

\d は、数字のこと
[^\d]　は、非数字

なお、万単位ある場合は、コピーして、値貼り付けで、定数化して、数式は取り除いたほうが、ワークシートは軽くなります。

この回答へのお礼

助かりました。ありがとうございました。遅くなってすいませんでした。

お礼日時：2006/08/29 08:01

No.6 回答者： NCU 回答日時： 2006/08/24 23:24

データ-区切り位置でスペースを区切り文字としてバラしてからお好きなように処理すればよろしいのでは？

この回答へのお礼

助かりました。ありがとうございました。遅くなってすいませんでした。

お礼日時：2006/08/29 08:01

No.4 回答者： mu2011 回答日時： 2006/08/24 09:56

区切り位置がスペース、半角英字が６桁として、異化の方法は如何でしょうか。

B1に=MID(A1,1,FIND(" ",A1,FIND(" ",A2,1)+1)-1)
C1に=RIGHT(A1,6)

この回答へのお礼

助かりました。ありがとうございました。遅くなってすいませんでした。

お礼日時：2006/08/29 08:02

No.3 回答者： mike_g 回答日時： 2006/08/24 09:37

C1: =MID(A7,FIND("!",SUBSTITUTE(A7," ","!",3))+1,99)

この回答へのお礼

助かりました。ありがとうございました。遅くなってすいませんでした。

お礼日時：2006/08/29 08:02

No.2 回答者： mshr1962 回答日時： 2006/08/24 09:27

最後の文字列が6桁で統一なら

C1=RIGHT(A1,6)
桁数が固定でなく、区切り位置が半角スペースの4番目の文字列なら
C1=RIGHT(A1,LEN(A1)-FIND("!",SUBSTITUTE(A1," ","!",3)))

この回答へのお礼

助かりました。ありがとうございました。遅くなってすいませんでした。

お礼日時：2006/08/29 08:03

No.1 回答者： deadline 回答日時： 2006/08/24 08:29

プロジェクト1_簡単な文章_2352_PD_JOK

↑で『_』で示した所は、半角スペースですか？もし、半角スペースと決まっているなら、

セルB1：　=LEFT($A1,FIND("_",$A1,FIND("_",$A1)+1)-1)　　　　（←『_』は半角スペース。ご質問の『_』が全角スペースなら全角スペースに置き換えてください。）

セルC1：　=RIGHT($A1,LEN($A1)-FIND("_",$A1,FIND("_",$A1,FIND("_",$A1)+1)+1))　　　　（同上）

『find("文字列",A1,文字数)』は、セルA1の左端から数えた『文字数』で示された文字位置から『文字列』を探して、見つかると、その『文字列』の左端から数えた文字数を返します。（文字数が1のときは省略可）

この回答へのお礼

助かりました。ありがとうございました。遅くなってすいませんでした。

お礼日時：2006/08/29 08:03