把
Filter = Filter & "雇员 = '" & .Value & "'"
改成
Filter = Filter & "雇员 like '%" & .Value & "%'"
或者
Filter = Filter & "雇员 like '*" & .Value & "*'"