Excelで曜日・数字が含まれた文字列を曜日別に分割したいです

質問

Excel関数で悩んでいます。
ひとつのセルに曜日と数字が入っていた場合に
数字別に曜日を分割する方法はあるでしょうか。

例）
　　　　　　　　　　　　　月　　火　　水　　木　　金　　土　　日
月：500、水：800　　　　　500　　　　 800
月火：700、木：500　　　　700　 700 500
月：500、火水木金：700　　500　 700 700 700 700

上記のようにです。
条件のセルはひとつです。月～日は別セルです。（内容は数字になる）
MINとかLENと使って数字を抜くことはできても複数の条件に対しての
数字がどうしても読み取れません。
よろしくお願いいたします。

回答No.4

mshr1962 · ベストアンサー

ちょっと長くなりますが、数字桁可変対応です。
=IF(ISERROR(FIND(B$1,$A2,1)),"",REPLACE(MID($A2,FIND("：",$A2,FIND(B$1,$A2,1))+1,LEN($A2)),FIND("、",MID($A2&"、",FIND("：",$A2,FIND(B$1,$A2,1))+1,LEN($A2)),1),LEN($A2),"")*1)

お礼

確かに長いですが、わかりやすいです。
こんなに色々な方法があるとは思いませんでした。
悩んだ半日がなんだったのか？
ありがとうございました！

回答No.3

maron--5

B2=IF(ISNUMBER(FIND(B$1,$A2)),REPLACE(LEFT($A2,FIND("、",$A2&"、",FIND(B$1,$A2))-1),1,FIND("：",$A2,FIND(B$1,$A2)),),"")

★右と下にコピー
★数値の桁はいくつでもいいですよ

お礼

みなさんすごいですね。
読み解いて使ってみます。ありがとうございます！

回答No.2

mu2011

１行目を曜日、A2以下に条件で数値は３桁固定として、B2に次の数式を設定、縦横にコピーで如何でしょうか。
=IF(ISERROR(FIND(B$1,$A2)),"",MID($A2,FIND("：",$A2,FIND(B$1,$A2)+1)+1,3))

お礼

ありがとうございます。
実は桁数が固定ではないのですが、桁のところを工夫して
やってみます。

回答No.1

noname#140971

月：500、水：800________500_______800
月火：700、木：500______700__700_______500
月：500、火水木金：700__500__700__700__700__700

=CutStr(((CutStr(CutStr(A1,"月",2),"：", 2))), "、",1)

このように CutStr関数ってのを一つ標準モジュールに登録すれば・・・。

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　 ByVal Separator As String, _
　　　　　　　　　　　 ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
End Function

僅か２行の関数ですが、これで可能になります。

=CutStr(((CutStr(CutStr(A1,"月",2),"：", 2))), "、",1)
=CutStr(((CutStr(CutStr(A1,"火",2),"：", 2))), "、",1)
=CutStr(((CutStr(CutStr(A1,"水",2),"：", 2))), "、",1)
=CutStr(((CutStr(CutStr(A1,"木",2),"：", 2))), "、",1)

１、"月"で区切られた文字列の２番目を抜き出す。
２、その文字列から"："で区切られた２番目を抜き出す。
３、さらに、"、"で区切られた１番目を抜き出す。

[イミディエイト]
? CutStr("月：500、水：800", "月", 2)
：500、水：800
? CutSTr("：500、水：800", "：", 2)
500、水
? CutStr("500、水", "、", 1)
500

これを、一文で書けば・・・。

=CutStr(((CutStr(CutStr(A1,"月",2),"：", 2))), "、",1)

※エクセルの関数でも同じことは可能かと推察します。
※が、いかんせん、エクセルは操作したこともない門外漢。
※で、アイデアだけでも参考になさってください。

お礼

回答いただきありがとうございます。
関数で無理であればVBAでやってみようと思っていました。
参考にさせていただきます！