Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter ActiveWorkbook.Names.Add Name:="合同列表!_FilterDatabase", RefersTo:="=合同列表!$A$1:$AM$1", Visible:=False Columns("P:P").Select
时间: 2024-01-10 11:02:45 浏览: 120
这段代码的作用是:选中第一行,然后启用自动筛选功能,并添加一个名为“合同列表!_FilterDatabase”的名称,引用的范围为合同列表的第一行到第39列(AM列),并将其隐藏起来,最后选中P列。
需要注意的是,此处的代码中有重复的自动筛选功能,因为在选中第一行并启用自动筛选功能后,再次使用Selection.AutoFilter不会产生任何变化,因此可以省略其中一个。另外,对于添加名称的操作,需要保证该名称在工作簿中唯一且合法,否则会出现错误。
阅读全文