求助：这么能够按照包含匹配到指定单元格去呢？附件帮忙看怎么做

为什么没人呀，我的狮虎呢@青水蛙鸣

公式想不出，满脑子都是今晚吃什么饭呢。
很急吗？

文件见
http://pan.baidu.com/s/1hqJY7MO
用公式没做出来，结合了自定义函数，
你看下是否符合题意
ps:别叫我解释，我想了半天也组织不好语言、。。

自定义
Option Compare Text
Function bl(t As Range, ref As Range, ic As Integer, i As Integer) As String
If t.Count > 1 Or Len(t.Value) = 0 Then Exit Function
If ref.Rows.Count > 1 Then Exit Function
If ic > ref.Columns.Count Then Exit Function
Dim arr
arr = Split("-" & t.Value, "-")
If i > UBound(arr) Then Exit Function
If arr(i) = ref(1, ic).Value Then
bl = arr(i)
Else
bl = ""
End If
End Function