dim str_E as stringstr_E=range("E1")range.("V3").autofilter field:=22, criterial:=(str_E), operator:=xlfiltervalues也可以直接range.("V3").autofilter field:=22, criterial:=(range("E1").value), operator:=xlfiltervalues