Сергей Павлов, ВПР?   если у повторяющихся кодов одинаковое Ограничение

Ознакомьтесь со статьей. Одна из самых частоиспользуемых функций.

whateverlover, Может сможете еще подсказать. Есть ли такая возможность автоматически по группам разделить на листы эти списки, т.е. я для примера скинул тот же шаблон, там я вручную удалил лишние группы и оставил только 126н и Общую (копировал лист Общий, через фильтр удалил все кроме 126н). А мне нужно так сделать для остальных. Можно ли это сделать автоматически ?

whateverlover, Еще раз большое спасибо за макрос! Вроде бы он сработал, других вариантов мне не удалось найти.
Наверное еще один момент хотел у вас спросить, по первому вопросу - если в шаблоне будет, так что у одного и того же кода будут разные значения и чтобы в списке эти значения в этом случае не отображались или как то еще отмечались (что-то типа "ошибка" или "неверное значение", в общем, чтобы был какой-то маркер). Сейчас же получается, что какое значение у первого кода есть в шаблоне, то и значение переходит в файл со списком. Приложил шаблон2 и список2 с примером. Можете еще с этим помочь?

Если у первого кода будет без ПП, а у другое к примеру 126н, то нужно чтобы вообще не брало или была какая метка, что у этого кода два значения или выдавало ошибку. Т.е. такой вариант в шаблоне должен показывать что не верный. Я просто столкнулся с такой проблемой поэтому в процессе работы пытаюсь понять как это в будущем избежать. Извините еще раз, если начал надоедать =))

Сергей Павлов, вроде что-то вышло, потестируйте. Сделано на Power Query + VBA, т.е. офис должен быть от 16 и новее, либо PQ должен быть установлен отдельной надстройкой.
Но сразу скажу, это вариант для фана, уверен на чистом VBA можно набросать поинтересней вариант, просто никто связываться не хочет, т.к. видно, что Вам еще 50 раз надо будет что-то подредактировать   А так для здешних макросников, думаю, задача минут на 15. Было бы нормальное ТЗ.

Код

Sub SliceAndDice()    For Each objConnection In ThisWorkbook.Connections        'Get current background-refresh value        bBackground = objConnection.OLEDBConnection.BackgroundQuery        'Temporarily disable background-refresh        objConnection.OLEDBConnection.BackgroundQuery = False        'Refresh this connection        objConnection.Refresh        'Set background-refresh value back to original value        objConnection.OLEDBConnection.BackgroundQuery = bBackground    Next    For Each cell In Range("DistinctValues")        Dim exists As Boolean        exists = False        For i = 1 To Worksheets.Count            If Worksheets(i).Name = cell Then                exists = True         End If        Next i                If Not exists Then             On Error Resume Next    ActiveWorkbook.Queries.Add Name:=cell.Value, Formula:= _        "let" & Chr(13) & "" & Chr(10) & "    Источник = Excel.CurrentWorkbook(){[Name=""Таблица""]}[Content]," & Chr(13) & "" & Chr(10) & " ChangeType = Table.TransformColumnTypes(Источник,{{""№"", Int64.Type}, {""код"", type text}, {""Ограничения"", type text}})," & Chr(13) & "" & Chr(10) & " ToRows = Table.ToRows(ChangeType)," & Chr(13) & "" & Chr(10) & " RecordsToRemove = Table.ToRows(#""Задублированные строки"")," & Chr(13) & "" & Chr(10) & " DuplicatesRemoves = Table.FromRows(List.RemoveMatchin" & _        "gItems(ToRows,RecordsToRemove), Table.ColumnNames(ChangeType))," & Chr(13) & "" & Chr(10) & "    Filter = Table.SelectRows(DuplicatesRemoves, each ([Ограничения] = """ & cell.Value & """))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Filter" MsgBox Err.Number On Error GoTo ErrHandler    ActiveWorkbook.Worksheets.Add    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & cell.Value & ";Extended Properties=""""" _        , Destination:=Range("$A$1")).QueryTable        .CommandType = xlCmdSql        .CommandText = Array("SELECT * FROM [" & cell.Value & "]")        .RowNumbers = False        .FillAdjacentFormulas = False        .PreserveFormatting = True        .RefreshOnFileOpen = False        .BackgroundQuery = True        .RefreshStyle = xlInsertDeleteCells        .SavePassword = False        .SaveData = True        .AdjustColumnWidth = True        .RefreshPeriod = 0        .PreserveColumnInfo = True        .ListObject.DisplayName = "_" & Replace(Replace(cell.Value, " ", "_"), ",", "")        .Refresh BackgroundQuery:=False    End With    ActiveSheet.Name = cell.Value        End If ErrHandler: 'On Error GoTo 0    Next cell    MsgBox "Готово" End Sub