这样写
Tables("表A").Filter ="[单位] = '" & Value(1) & "' And [部门] = '" & Value(2) & "' And [业务员] like '*张三*'"