Sub Macro2() Sheets("今日往来").Range("A1:F176").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("明细!Criteria"), CopyToRange:=Range("明细!Extract"), _ Unique:=False End Sub
Sub Macro2() Sheets("今日往来").Range("A1:F176").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("明细!Criteria"), CopyToRange:=Range("明细!Extract"), _ Unique:=False End Sub