' --- На уровне модуля ---
Private cachedPriceDict As Object
Private dictValid As Boolean

' Чистая функция: собирает словарь "артикул > цена" со всех листов
Private Function BuildPriceDictionary() As Object
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare ' нечувствительно к регистру
    
    Dim ws As Worksheet, aws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim article As String
    Dim price As Variant
    
    Set aws = ActiveSheet
    
    For Each ws In ThisWorkbook.Worksheets
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        If lastRow < 1 Or ws Is aws Then GoTo NextSheet
        
        For i = 1 To lastRow
            article = Trim(CStr(ws.Cells(i, 1).Value))
            If article <> "" Then
                price = ws.Cells(i, 2).Value
                If Not dict.Exists(article) Then
                    dict.Add article, price
                End If
            End If
        Next i
NextSheet:
    Next ws
    
    Set BuildPriceDictionary = dict
End Function

' Публичный метод для сброса кэша (по необходимости)
Public Sub InvalidatePriceCache()
    dictValid = False
    Set cachedPriceDict = Nothing
End Sub

' Основная пользовательская функция: принимает артикул как аргумент
Public Function PriceByArticle(article As Variant) As Variant
    Dim tmp As Object
    
    ' Инициализация/обновление кэша при первом вызове
    If Not dictValid Then
        Set cachedPriceDict = BuildPriceDictionary()
        dictValid = True
    End If
    
    ' Обработка входного значения
    If IsEmpty(article) Or IsError(article) Then
        PriceByArticle = CVErr(xlErrNA)
        Exit Function
    End If
    
    Dim key As String
    key = Trim(CStr(article))
    If key = "" Then
        PriceByArticle = CVErr(xlErrNA)
        Exit Function
    End If
    
    Set tmp = cachedPriceDict
    
    ' Поиск в кэше
    If cachedPriceDict.Exists(key) Then
        PriceByArticle = cachedPriceDict(key)
    Else
        PriceByArticle = CVErr(xlErrNA) ' или "", если предпочитаете пусто
    End If
End Function
Sub Test_fun()
    a = PriceByArticle("SW1003")
    Debug.Print a
End Sub

let
    source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    func = (x) => Text.Combine(List.RemoveItems(Text.Split(Text.Replace(Text.Replace(x, " )", ")"), " (", "("), " "), {""}), " "),
    skip = Table.Skip(source,7),
    del01 = Table.SelectRows(skip, each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    res = Table.TransformColumns(del01,{{"Столбец1", func, type text}}),
    div = Table.SplitColumn(res, "Столбец1", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Столбец1.1", "Столбец1.2", "Столбец1.3", "Столбец1.4", "Столбец1.5", "Столбец1.6", "Столбец1.7", "Столбец1.8", "Столбец1.9", "Столбец1.10", "Столбец1.11", "Столбец1.12", "Столбец1.13", "Столбец1.14", "Столбец1.15", "Столбец1.16", "Столбец1.17", "Столбец1.18", "Столбец1.19", "Столбец1.20", "Столбец1.21"}),
    hdrs = Table.PromoteHeaders(div, [PromoteAllScalars=true]),
    col = Table.SelectColumns(hdrs,{"MUF"}),
    del02 = Table.SelectRows(col, each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null})))
in
    del02
/* ух и наг.кодил же я :)*/