- 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
不知道你的年份表是已经存在的,还是要提取数据时新增加一个这个年份的表,一个年份新增加一个表.
你这些数据是从系统中导出来的,年份的数据格式.
本身的操作方法想不出来.