Правильная публикация / развертывание проекта Blazor на страницах GitHub

Неясно, как выглядит ваш 4-й лист. Это будет искать номер билета на вашем 4-м листе в ячейке A1.

После выполнения он будет проходить через каждый лист и фильтровать / копировать / вставлять первые 4 столбца для всех значений в фильтре.

Вам нужно будет изменить .Sheets("Sheet4") в соответствии с вашим листом: .Sheets("?")

Option Explicit

Sub Macro1()
Dim Ws As Worksheet, MyWs As Worksheet
Dim wsLRow As Long, MyLRow As Long

Set MyWs = ThisWorkbook.Sheets("Sheet4")

Dim TicketNumber As String
TicketNumber = MyWs.Range("A1")

Application.ScreenUpdating = False
For Each Ws In Worksheets
    If Ws.Name <> MyWs.Name Then
        With Ws
            If .AutoFilterMode Then .AutoFilterMode = False
            wsLRow = .Range("A" & .Rows.Count).End(xlUp).Row
            MyLRow = MyWs.Range("A" & MyWs.Rows.Count).End(xlUp).Offset(1).Row
            .Range("A:A").AutoFilter 1, TicketNumber
            .Range("A2:D" & wsLRow).SpecialCells(xlCellTypeVisible).Copy
            MyWs.Range("A" & MyLRow).PasteSpecial
            .AutoFilterMode = False
        End With
    End If
Next Ws
Application.ScreenUpdating = True

End Sub

Если вам понадобится обработать ошибку, когда ваш фильтр ничего не найдет .