Excel（エクセル）での特定文字以降の文字列抽出

Excelでの
特定文字以降の文字列抽出＆条件による振り分け
を自動的にする事は可能でしょうか？
例えば図のように

セルA2に1200×15
セルA3に2300×3 と入力されている時

C2に15
B3に3 と表示したいです。

できれば、
後で合計を出したいので数字として扱いたいです。

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

No.1 回答者： nosense 回答日時： 2009/08/21 02:54

表のセルに下記の計算式を考えてみました。

該当しないセルは“０”が表示されてしまいますが、
気に入らなければ、「書式」→条件付書式で定義してください。

試してみてください。
但し、Ａ列の掛け算は“Ｘ”を使用することと、スペースは入れないことに注意ください。
↓↓↓↓↓↓↓↓下記の式をセルに記載↓↓↓↓↓↓↓↓↓↓
=VALUE(IF(EXACT(LEFT($A2,FIND("X",$A2)-1),B$1)=TRUE,RIGHT($A2,LEN($A2)-FIND("X",$A2)),))

この回答へのお礼

申し訳ありません(´；ω；`)
エラーが出てしまい
なぜかできませんでした。

お礼日時：2009/08/22 22:50

No.2 回答者： KURUMITO 回答日時： 2009/08/21 06:27

B2セルに次の式を入力したのちに右横方向にオートフィルドラッグしたのちに下方向にもオートフィルドラッグします。

=IF($A2="","",IF(LEFT($A2,FIND("×",$A2)-1)*1=B$1,MID($A2,FIND("×",$A2)+1,5)*1,""))

この回答へのお礼

できました！
丁寧な手順も書いていただき
とても参考になりました
ありがとうございました。

お礼日時：2009/08/22 22:10

No.3 回答者： sige1701 回答日時： 2009/08/21 06:28

B2=IF(B$1=LOOKUP(10^10,LEFT($A2,COLUMN(1:1))*1),LOOKUP(10^10,RIGH

T($A2,COLUMN(1:1))*1),"")

この回答へのお礼

できました！
ありがとうございました。

お礼日時：2009/08/22 22:14

No.4 回答者： maron--5 回答日時： 2009/08/21 06:58

◆こんな方法も

B2=IF(COUNTIF($A2,B$1&"×"&"*"),SUBSTITUTE($A2,B$1&"×",)*1,"")
★右と下にコピー

この回答へのお礼

できました！
ありがとうございました。

お礼日時：2009/08/22 22:14

No.5 ベストアンサー 回答者： maron--5 回答日時： 2009/08/21 07:02

◆これでいいですね

B2=IF(COUNTIF($A2,B$1&"×*"),SUBSTITUTE($A2,B$1&"×",)*1,"")

この回答へのお礼

できました！

１番短くて
どんな内容の式か理解できる
コノ式を使わせていただきます。
ありがとうございました。

お礼日時：2009/08/22 22:05

No.6 回答者： cistronezk 回答日時： 2009/08/21 07:36

文字列だと以下のことが気になります。

・全角文字が紛れ込むことはないのか
・数値と「X」との間にスペース（全角・半角）が入り込むことはないのか
以上の２点のどちらかのケースがありうると、ちょっと面倒です。

この回答への補足

会社のデータベースを確認したら、
指摘していただいた２点は
どちらもありませんでした。

補足日時：2009/08/22 21:55

No.7 回答者： watabe007 回答日時： 2009/08/21 09:27

こんにちは

マクロで行うのなら、こんな感じです
Sub Test()
　　Dim v As Variant, c As Range, myC As Variant

　　For Each c In Range("A2:A6")
　　　　v = Split(c.Value, "×")
　　　　myC = Application.Match(Val(v(0)), Range("B1:D1"), 0)
　　　　c.Offset(, myC).Value = Val(v(1))
　　Next
End Sub

この回答へのお礼

申し訳ありません(´；ω；`)
まだマクロを使ったことがなく、よくわからないながらも
書いていただいた文を
コピペしてみましたができませんでした。

お礼日時：2009/08/22 21:46

No.8 回答者： imogasi 回答日時： 2009/08/21 16:12

色々のタイプの回答が出ているので私も１つ。

ユーザー関数を作る。
標準もニュールに
（ツールーマクローＶＢＥ－挿入ー標準モジュールの画面）
Function Xafter(a)
x = Split(a, "X")
Xafter = Val(x(1))
End Function
を入れて
セルに　=xafter(A1)と入れる。
上記はＸは半角大文字Ｘに限る関数。

この回答へのお礼

申し訳ありません(´；ω；`)
まだマクロを使ったことがなかったので
よくわからないながらも
書いていただいた手順通りに
コピペしてみましたができませんでした

お礼日時：2009/08/22 21:39