如何用宏同时更新多个工作表

fionawei

求大神指导：
这里有3个工作表，总表是明细，需要用高级筛选把部分内容筛选到工作表1和工作表2或者更多的工作表中，请问需要将宏如何修改？
以下是高级筛选的代码：
Sub 宏1()
'
' 宏1 宏
'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Sheets("Sheet1").Columns("A:K").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("C1"), Unique:=False
End Sub


请问如何点击一个按钮，后面的工作表1和工作表2以及更多的工作表都同时更新？请大神指导，谢谢。

爱疯

Sub 宏1()

    Sheets("总").Columns("A:g").AdvancedFilter Action:=xlFilterCopy, _
                                              CriteriaRange:=Range("A1:A2"), _
                                              CopyToRange:=Range("C1:i1")
End Sub

fionawei

爱疯 发表于 2020-1-2 08:51
Sub 宏1()

    Sheets("总").Columns("A:g").AdvancedFilter Action:=xlFilterCopy, _

谢谢回复，请问可以同时更新后面的工作表吗?

爱疯

"1"工作表和"2"工作表都可以

fionawei

爱疯 发表于 2020-1-2 09:20
"1"工作表和"2"工作表都可以

谢谢回复，能否辛苦帮忙做一下发个附件呢？能否在按“按钮3”的时候，工作表1和2里的内容都同时刷新呢？弱弱的说句，我没弄好~~
非常感谢！！

爱疯

Sub test()
    Dim i
    For i = 2 To Sheets.Count
        With Sheets(i)
            .[c:i] = ""
            Sheets(1).Columns("a:g").AdvancedFilter 2, .[A1:A2], .[c:i]
        End With
    Next
End Sub


工作簿2.rar (25.59 KB, 下载次数: 15)

2020-1-6 14:40 上传

点击文件名下载附件

fionawei

爱疯 发表于 2020-1-6 14:41
Sub test()
    Dim i
    For i = 2 To Sheets.Count

太厉害了，就是这个意思，非常感谢