1、参考
http://www.foxtable.com/webhelp/scr/1058.htm
2、
Filter = Filter & "客户 = '" & .Value & "'"
改成
Filter = Filter & "客户 in ('" & .Value.replace(",", "','") & "')"