1、ma改成字符集合;
2、代码改成
.Filter = "[供货商行] = '" & e.Sender.Value & "' and [永久编号] in (" & string.join(",", ma.toarray) & ") "