分类：电脑/网络-软件-办公软件
问题：excel批量自动筛选复制各位高手们,我有一批数据,我想按年分别 
各位高手们,我有一批数据,我想按年分别将其提取出来,重新复制在一个表里面。但是数据量有点多。请问应该怎样做啊?如:年abc1 提取结果就是分别有两个新表,记录了这两条信息!表1年abc1951266表2年abc1 1因为一个个的使用高级筛选,还要确定筛选的条件,有点麻烦。可不可以自动批量的根据年分别将其筛选后复制粘贴到新表中!同时,不单单是一个表,是多个表都需要根据年筛选出来!谢谢详情见附件
回答：Sub 按钮1_单击() Error Resume Next  Set myb = CreateObject("scripting.dictionary")arr = Range(Cells(2, 2), [b65536].End(xlUp))      For i = 1 To UBound(arr)         myb(arr(i, 1)) = ""           Next         Application.ScreenUpdating = False           For Each mykey In myb               Sheets.Add after:=Sheets(Sheets.Count)               ActiveSheet.Name = mykey                Sheet1.Activate               With Sheet1.UsedRange                   .AutoFilter                   .AutoFilter field:=2, Criteria1:=Format(mykey, "#,##0")                   .SpecialCells(xlCellTypeVisible).Copy Sheets(CStr(mykey)).[a1]                   .AutoFilter                     End With           Next           Set myb = Nothing          Application.ScreenUpdating = TrueEnd Sub不知道你的年份表是已经存在的,还是要提取数据时新增加一个这个年份的表,一个年份新增加一个表.你这些数据是从系统中导出来的,年份的数据格式.本身的操作方法想不出来.