エクセル2000で文字列から数値を抽出したい。

エクセル2000で文字列から数値を抽出したい。
ワークシートのＡ列に下記の文字列が入力されています。

Ａ１セル="123456 日本男子　54,321 7,654,321 12,345"
Ａ２セル="234567 東京都子　1,234 2,345 5,321"
Ａ３セル="345678 大阪太郎　99 689 9,876"

データ間はスペースで区切られています。
後方２番目の数値をＢ列に取出す方法を教えて下さい。

Ｂ１セル=7,654,321
Ｂ２セル=2,345
Ｂ３セル=689

よろしくお願い致します。

No.2 ベストアンサー 回答者： maron--5 回答日時： 2010/05/09 15:20

>後方２番目の数値をＢ列に取出す方法を教えて下さい。

=TRIM(LEFT(RIGHT(SUBSTITUTE(A1," ",REPT(" ",100)),200),100))*1

◆前から４番目の数値ならば、
=TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",100)),3*100-99,100))*1

この回答へのお礼

スマートな回答ありがとうございました。
参考にさせてもらいます。

お礼日時：2010/06/07 21:44

No.4 回答者： mike_g 回答日時： 2010/05/09 15:56

[回答番号：No.2]の maron--5さんの短い式は実にお見事ですが、[回答番号：No.1]の keithinさんの別解として次式を挙げておきます。

=MID(A1,FIND("_",SUBSTITUTE(A1," ","_",2))+1,FIND("_",SUBSTITUTE(A1," ","_",3))-FIND("_",SUBSTITUTE(A1," ","_",2)))+0

この回答へのお礼

回答ありがとうございました。

お礼日時：2010/06/07 21:45

No.3 回答者： mshr1962 回答日時： 2010/05/09 15:46

VBA（マクロのユーザー定義関数）を使ってもいいなら

VisualBasicEditorの標準モジュールに下記のコードをコピーして
Function SS(文字 As String, 区切り As String, 番号 As Integer)
Dim XX As Variant
On Error GoTo ERR_SS
XX = Split(文字, 区切り)
SS = XX(番号 - 1)
Exit Function
ERR_SS:
SS = ""
End Function

B1=SS(A1," ",4)
B2=SS(A2," ",4)
B3=SS(A3," ",4)

この回答へのお礼

ＶＢＡでの回答ありがとうございます。
参考にさせてもらいます。

お礼日時：2010/06/07 21:45

No.1 回答者： keithin 回答日時： 2010/05/09 14:30

一般にはデータメニューの区切り位置で「カンマやスペース」から次々進め，スペースで区切った４列目のデータを答えとして取り出すのが一番簡単な方法です。

どうしても関数が良いなら
=MID(LEFT(TRIM(ASC(A1)),FIND("zzz",SUBSTITUTE(TRIM(ASC(A1))," ","zzz",4))),FIND("zzz",SUBSTITUTE(TRIM(ASC(A1))," ","zzz",3))+1,99)

結果を「数値」にしたいなら，さらに
=MID(LEFT(TRIM(ASC(A1)),FIND("zzz",SUBSTITUTE(TRIM(ASC(A1))," ","zzz",4))),FIND("zzz",SUBSTITUTE(TRIM(ASC(A1))," ","zzz",3))+1,99)+0
など。

この回答へのお礼

回答ありがとうございました。
参考にさせてもらいます。

お礼日時：2010/06/07 21:43