Excel 用于在多张图纸上进行过滤的vba代码

我的工作簿有多张工作表，每张工作表中的列数相同。在工作簿中添加每日新工作表

是否可以通过运行vba代码将第一张图纸上的过滤数据传输到后续图纸

---

关于

您可以使用

    Dim rng As Range
    With Sheets(1)     
      .AutoFilter
    Set rng = .AutoFilter.Range
    End With

有关过滤器的所有信息都存储在自动过滤器对象的过滤器集合中

Dim filters As Filters 
Set filters = Sheets(1).AutoFilter.Filters

此集合中的每个项表示筛选范围中的一列。以下语句将获得第一列的标准1：

filters.Item(1).Criteria1

您可以在要将其传输到的其他图纸上使用获得的信息。通过范围对象（）的自动筛选方法执行此操作

如果列与您所说的相同，则可以使用address属性轻松获取目标范围：

Sheets(n).Range(rng.address).AutoFilter arguments_here

---

是的，但代码编写服务也不是这样。如果你有一些你尝试过的代码，但它不起作用，那么发布它并告诉我们它在哪里抛出错误，以及错误是什么，我们将尽力提供帮助。在你的标题上进行web搜索，这是一个相当受欢迎的主题谢谢你，Mark和Daves。在web上，我得到了一个代码，但它显示了错误“应用程序定义的或对象定义的错误”。请帮助，我如何在这里发布代码。@KISHORBHOIR如果答案解决了您的问题，您能将其标记为已接受吗？非常感谢。