因此,我一行上有关联的过滤器(每个单元格上都有一个箭头,当您单击它们时,将出现过滤器框,允许用户过滤特定内容)。但是我有一个小问题,这是我用于将一行从一张纸复制到另一张纸的代码:
Sheets(Name).Range("A1").EntireRow.Copy Destination:= _
Sheets("Monthly").Range("A1").End(xlUp).Offset(Sheets("Monthly").UsedRange.rows.Count - 1)
Cells.EntireColumn.AutoFit
问题是,当此代码复制行时,它们将丢失其过滤器属性。有没有办法保留此信息?
作为评论的后续内容:
自动过滤器应明确地应用于表格中Monthly
。假设,如果您将第1行从工作表1(带有自动Monthly
过滤器)复制到第10行中的工作表中,那么您应该使用此行应用自动过滤器:
Sheets("Monthly").Range("A10:Z10").AutoFilter
更改行号和列以适合。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句