请教关于EXCEL筛选的一个問題 高级筛选？多条件筛选？函数公式？

确保数据在工作表“数据源”的A到F列，且第一行有表头；确保工作表“数据源”是第一张工作表；确保后面的工作表都要被筛选后复制数据（但有几个没关系）。 同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴以下代码： Sub Test() Dim i As Byte For i = 2 To ThisWorkbook.Sheets.Count Sheets("数据源").Select Range("A1:F3000").Select Selection.AutoFilter Field:=1, Criteria1:=Sheets(i).Name Selection.Copy Sheets(i).Select Range("A1").Select ActiveSheet.Paste Next i End Sub 按F5运行此宏，即可。