就是录制一个宏,如Sub NewFilter() Sheets("表2").Select Sheets("表1").Range("A2:Q164").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _ ("条件表").Range("B2:I4"), CopyToRange:=Range("A2:Q2"), Unique:=FalseEnd Sub