excel批量自动筛选复制各位高
Sub 按钮1_单击()
On 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 = m...全部
Sub 按钮1_单击()
On 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
不知道你的年份表是已经存在的,还是要提取数据时新增加一个这个年份的表,一个年份新增加一个表。
你这些数据是从系统中导出来的,年份的数据格式。
本身的操作方法想不出来。收起
