Хочу добавить еще два условия в моем 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

Вы имеете в виду это?Удалить данные на Мастере перед вставкой?

(также прекратите изменять правки в вашем сообщении)

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