想在我的 excel VBA 编码中再添加两个条件

Question

我要添加的是..宏应该从“主”表中删除旧的并刷新 sheet1、sheet2 和 sheet3

Sub Combine3Sheet()

    Dim Ary As Variant
    Dim Ws As Worksheet

    Ary = Array("Sheet1", "Sheet2", "Sheet3")
    Sheets("Master").Name = "Master"

    For Each Ws In Worksheets(Ary)
        Ws.UsedRange.Offset(1).Copy Sheets("Master") _
        .Range("A" & Rows.Count).End(xlUp).Offset(1)

        Application.DisplayAlerts = False
        Application.DisplayAlerts = True

        Call Formatting

    Next Ws

End Sub

Answer 1

你是说这个吗？粘贴前先删除Master上的数据？

（同时停止更改帖子上的编辑）

Sub Combine3Sheet()
    Dim Ary As Variant
    Dim Ws As Worksheet
    Ary = Array("Sheet1", "Sheet2", "Sheet3")
    'Refresh all sources/Tables
    ThisWorkbook.RefreshAll
    'Clear All but first Row
    Sheets("Master").Rows("2:" & Rows.Count).ClearContents
    'Loop sheets
    For Each Ws In Worksheets(Ary)
        Ws.UsedRange.Offset(1).Copy
        Sheets("Master").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        Call Formatting
    Next Ws
End Sub