主题：in在代码中失效了？没有失效——问题解决了

 弹出你的表达式，看值是什么，msgbox("[部门名称] in (" & _usergroup & ") and [员工姓名] in (" & name0 & ")")

 你的值，应该赋初值为 ''，不然name0等没有值的时候，肯定是会报错的

 Dim name0 As String = "''"

 具体问题，做例子上来说明。