EXCEL表格里面怎样设置能够筛选出土建并自动形成表格
录制的宏代码
Sub macro1()
Columns("F:I").ClearContents
Range("A1").AutoFilter
ActiveSheet.Range("$A$1:$D$16").AutoFilter Field:=1, Criteria1:="土建"
Range("A:D").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("A1").AutoFilter
Range("F1").Select
End Sub
下一篇:为什么任务栏没有图标
热门标签: