筛选条件这样写
Dim str As String = "张三,李四"Dim filter As String = "1=2"For Each s As String In str.Split(",") filter &= " Or 问题处理人 Like '%" & s & "%'"Nextmsgbox(filter)