Страницы: 1
RSS
Как сделать макрос, который ищет, как впр, похожие данные
 
Доброго времени суток, друзья!
Прошу помочь.
Нужно из одной умной таблицы вставить данные в другую с помощью макроса. Поиск должен производиться по схожести данных одного из столбцов умных таблиц.
Сделал примерчик для общего понимания.  
 
Код
Sub Макросик()
    Dim a, i&, t$

    With CreateObject("Scripting.Dictionary")
        a = Sheets("Таблица 2").ListObjects(1).DataBodyRange.Value
        For i = 1 To UBound(a)
            .Item(a(i, 1)) = a(i, 2)
        Next
        a = Sheets("Таблица 1").ListObjects(1).DataBodyRange.Value
        For i = 1 To UBound(a)
            t = Left(a(i, 1), 8)
            If .exists(t) Then a(i, 1) = .Item(t) Else a(i, 1) = Empty
        Next
        Sheets("Таблица 1").[c2].Resize(UBound(a), 1) = a
    End With
End Sub
 
Hugo, Спасибосик большое!
 
Hugo, Ещё раз здравствуйте.
А можете прокомментировать данный макрос, не получается разобраться..
Страницы: 1
Наверх