比如
Tables("表A").Filter = "客户 in ('" & "'客户1','客户2'" & "')"
也就是
Tables("表A").Filter = "客户 in ('" & 控件.text.Replace(",", "','") & "')"