试试如下的程序：

Sub FindTxt()
Dim i As Long, j As Long, NumberOfRows As Long, bFound As Boolean, VarText As String
NumberOfRows = 10 '10 is for testing, please specify your own
    'if NumberOfRows are too large, the following program is not efficient
For i = 1 To NumberOfRows
VarText = Cells(i + 1, 1).Value
bFound = False
    For j = 1 To NumberOfRows
    If InStr(1, Cells(j + 1, 4).Value, VarText) > 0 Then 'i.e. if Var is in the Source
        bFound = True
        Exit For
    End If
    Next j
If bFound Then 'if found, print Target to column B
    Cells(i + 1, 2).Value = Cells(i + 1, 5).Value
Else 'if not found, print VarText to column B
    Cells(i + 1, 2).Value = VarText
End If
Next i
End Sub

你这题应该不难，只是你的规则和演示有矛盾。就第一行来说，“好人”未在“我是good man“中出现，按你的规则，生成的变量=“好人”，但是你演示的是“good”（而且为何是“good”而不是“good11”呢？）。完全看不懂究竟要做什么。

额，是我解释漏了几个字，sorry。。。

规则
"变量var如果在变量source所有值中匹配到，那么返回对应的那一行的target变量的值，如果不存在，则返回变量var的值。
例如“好人”（A2），在所有source（D2：D5）中匹配到D4，那么返回这一行target的值，即‘good’（E4）"
"例如“坏人”（A3），在所有source（D2：D5）中匹配到D5，那么返回这一行target的值，即‘bad’（E5）"
"例如“大神”（A4），在所有source（D2：D5）中都匹配不到，那么返回var的值，即自身‘大神’（A4）"

你这个会出现重复情况吗？比如“好人”，又出现“老好人”？

这个不会，要么只有一个，要么没有。。。。