Sub Сравнение_ТМЦ()
' Макрос для сравнения списка ТМЦ из 1С с фактическим наличием ТМЦ на складе
' Назначаем переменные:
Dim sheet1 As Worksheet ' ссылка на первый лист книги (выгрузка из 1С)
Set sheet1 = ActiveWorkbook.Sheets(1)
Dim sheet2 As Worksheet ' ссылка на второй лист книги (список ТМЦ по факту)
Set sheet2 = ActiveWorkbook.Sheets(2)
Dim sheet3 As Worksheet ' ссылка на третий лист книги (соответствия адресов 1С)
Set sheet3 = ActiveWorkbook.Sheets(3)
Dim sheet4 As Worksheet ' ссылка на четвертый лист книги (соответствия наименований 1С)
Set sheet4 = ActiveWorkbook.Sheets(4)
Dim sheet5 As Worksheet ' ссылка на пятый лист книги (соответствия адресов наши)
Set sheet5 = ActiveWorkbook.Sheets(5)
Dim sheet6 As Worksheet ' ссылка на шестой лист книги (соответствия наименований наши)
Set sheet6 = ActiveWorkbook.Sheets(6)

Dim str1 As String ' строка для хранения идентификатора(штрих-кода)строки первой таблицы (1С)
Dim str2 As String ' строка для хранения идентификатора(штрих-кода)строки второй таблицы (Эталон)
Dim adr1 As String ' строка для хранения идентификатора(адреса)строки первой таблицы (1С)
Dim adr2 As String ' строка для хранения идентификатора(адреса)строки второй таблицы (соответствия 1С)
Dim type1 As String ' строка для хранения идентификатора(типа оборудования)строки первой таблицы (1С)
Dim type2 As String ' строка для хранения идентификатора(типа оборудования)строки второй таблицы(соответствия 1С)
Dim adr3 As String ' строка для хранения идентификатора(адреса)строки третьей таблицы (наш свод)
Dim adr4 As String ' строка для хранения идентификатора(адреса)строки третьей таблицы (наши соответствия)
Dim type3 As String ' строка для хранения идентификатора(типа оборудования)строки третьей таблицы (наш свод)
Dim type4 As String ' строка для хранения идентификатора(типа оборудования)строки третьей таблицы (наши соответствия)


' номер строки в первой таблице (база 1С ГО), в которой содержатся данные
Dim i As Integer
i = 6
Dim last_i As Integer
last_i = 6

' номер строки во второй таблице (наша сводная опись), в которой содержатся данные
Dim j As Integer
j = 2
Dim last_j As Integer
last_j = 2

' номер строки в третьей таблице (наименования из 1С), в которой содержатся данные
Dim k As Integer
k = 2
Dim last_k As Integer
last_k = 2

' номер строки в четвертой таблице (адреса из 1С), в которой содержатся данные
Dim l As Integer
l = 2
Dim last_l As Integer
last_l = 2

' номер строки в пятой таблице (наименования из нашей выгрузки), в которой содержатся данные
Dim m As Integer
m = 2
Dim last_m As Integer
last_m = 2

' номер строки в шестой таблице (адреса из нашей выгрузки), в которой содержатся данные
Dim n As Integer
n = 2
Dim last_n As Integer
last_n = 2

' определяем последнюю строку первой таблицы с наименованием _
ТМЦ (в колонке "B" есть значение)
For Each Cell In sheet1.Range("B:B")
    If Cell.Row > 5 Then
        If Cell.Value > "" Then
            last_i = Cell.Row
        Else
            Exit For
        End If
    End If
Next Cell
 
' определяем последнюю строку второй таблицы с наименованием _
ТМЦ (в колонке "E" есть значение)
For Each Cell In sheet2.Range("E:E")
    If Cell.Row > 1 Then
        If Cell.Value > "" Then
            last_j = Cell.Row
        Else
            Exit For
        End If
    End If
Next Cell

' определяем последнюю строку третьей таблицы с наименованием _
ТМЦ (в колонке "A" есть значение)
For Each Cell In sheet3.Range("A:A")
    If Cell.Row > 1 Then
        If Cell.Value > "" Then
            last_k = Cell.Row
        Else
            Exit For
        End If
    End If
Next Cell

' определяем последнюю строку четвертой таблицы с адресом _
подразделения (в колонке "A" есть значение)
For Each Cell In sheet4.Range("A:A")
    If Cell.Row > 1 Then
        If Cell.Value > "" Then
            last_l = Cell.Row
        Else
            Exit For
        End If
    End If
Next Cell

' определяем последнюю строку пятой таблицы с нашим наименованием _
ТМЦ (в колонке "A" есть значение)
For Each Cell In sheet5.Range("A:A")
    If Cell.Row > 1 Then
        If Cell.Value > "" Then
            last_m = Cell.Row
        Else
            Exit For
        End If
    End If
Next Cell

' определяем последнюю строку шестой таблицы с нашим адресом _
подразделения (в колонке "A" есть значение)
For Each Cell In sheet6.Range("A:A")
    If Cell.Row > 1 Then
        If Cell.Value > "" Then
            last_n = Cell.Row
        Else
            Exit For
        End If
    End If
Next Cell


' пробегаем по строкам первой таблицы с выгрузкой из 1С (внешний цикл)
For i = 6 To last_i
    ' определяем идентификатор текущей строки в Базе по штрих-коду
    str1 = sheet1.Cells(i, 4).Value
    
    ' пробегаем по строкам второй таблицы "Эталон" (внутренний цикл)
    For j = 2 To last_j
        ' определяем идентификатор текущей строки в таблице "Эталон"
        str2 = sheet2.Cells(j, 2).Value
        
        ' проверяем на наличие пустой ячейки
        If str1 = "" Then
            Exit For
        End If
        
        ' сравниваем идентификаторы строк первой и второй таблицы
        If str2 = str1 Then
            ' если совпадение найдено, то дописываем строки из "Эталона" в Базу
            sheet1.Cells(i, 10).Value = sheet2.Cells(j, 2).Value
            sheet1.Cells(i, 11).Value = sheet2.Cells(j, 3).Value
            sheet1.Cells(i, 12).Value = sheet2.Cells(j, 5).Value
            sheet1.Cells(i, 13).Value = sheet2.Cells(j, 6).Value
            ' прекращаем внутренний цикл, переходим к следующей итерации внешнего цикла
            ' (к следующей записи таблицы "Эталон")
            Exit For
        End If
    Next j
Next i

' пробегаем по строкам первой таблицы с выгрузкой из 1С для ввода адресов (внешний цикл)
For i = 6 To last_i
    ' определяем идентификатор текущей строки в Базе по адресу
    adr1 = sheet1.Cells(i, 8).Value
     ' пробегаем по строкам четвертой таблицы с адресами для поиска соответствий(внутренний цикл)
    For l = 2 To last_l
        ' определяем идентификатор текущей строки в таблице соответствий (лист 4)
        adr2 = sheet4.Cells(l, 1).Value
            ' проверяем наличие адреса в ячейке Базы
                    If adr1 = "" Then
                Exit For
            End If
        If adr2 = adr1 Then
                ' если совпадение найдено, то дописываем строки из таблицы соответствий в Базу
                sheet1.Cells(i, 14).Value = sheet4.Cells(l, 2).Value
                ' прекращаем внутренний цикл, переходим к следующей итерации внешнего цикла
            Exit For
        End If
    Next l
Next i

' пробегаем по строкам первой таблицы с выгрузкой из 1С для ввода типа оборудования (внешний цикл)
For i = 6 To last_i
    ' определяем идентификатор текущей строки в Базе по адресу
    type1 = sheet1.Cells(i, 2).Value
     ' пробегаем по строкам третьей таблицы с наименованиями для поиска соответствий (внутренний цикл)
    For k = 2 To last_k
        ' определяем идентификатор текущей строки в таблице соответствий (лист 3)
        type2 = sheet3.Cells(k, 1).Value
            ' проверяем наличие адреса в ячейке Базы
                    If type1 = "" Then
                Exit For
            End If
        If type2 = type1 Then
                ' если совпадение найдено, то дописываем строки из таблицы соответствий в Базу
                sheet1.Cells(i, 15).Value = sheet3.Cells(k, 2).Value
                ' прекращаем внутренний цикл, переходим к следующей итерации внешнего цикла
            Exit For
        End If
    Next k
Next i

' пробегаем по строкам второй таблицы "Эталон" (внешний цикл)
For j = 2 To last_j
    ' определяем идентификатор текущей строки в "Эталоне" по штрих-коду
    str2 = sheet2.Cells(j, 2).Value
    ' пробегаем по строкам второй таблицы "База" (внутренний цикл)
    For i = 6 To last_i
        ' определяем идентификатор текущей строки в Базе
        str1 = sheet1.Cells(i, 4).Value
        ' проверяем наличие штрих-кода в ячейке "Эталона"
        If str2 = "" Then
            Exit For
        End If
        ' сравниваем идентификаторы строк первой и второй таблицы
        If str2 = str1 Then
            ' если совпадение найдено, то дописываем строки из "Эталона" в Базу
            sheet2.Cells(j, 7).Value = sheet1.Cells(i, 4).Value
            sheet2.Cells(j, 8).Value = sheet1.Cells(i, 7).Value
            sheet2.Cells(j, 9).Value = sheet1.Cells(i, 2).Value
            sheet2.Cells(j, 10).Value = sheet1.Cells(i, 8).Value
            ' прекращаем внутренний цикл, переходим к следующей итерации внешнего цикла
            ' (к следующей записи таблицы "Эталон")
            Exit For
        End If
    Next i
Next j

' пробегаем по строкам второй таблицы "Эталон" для внесения унифицированных адресов(внешний цикл)
For j = 2 To last_j
    ' определяем идентификатор текущей строки в "Эталоне" по адресу
    adr3 = sheet2.Cells(j, 6).Value
    ' пробегаем по строкам шестой таблицы с адресами для поиска соответствий (внутренний цикл)
    For n = 2 To last_n
        ' определяем идентификатор текущей строки в таблице соответствий (лист 6)
        adr4 = sheet6.Cells(n, 1).Value
            ' проверяем наличие адреса в ячейке Базы
                    If adr3 = "" Then
                Exit For
            End If
        If adr4 = adr3 Then
                ' если совпадение найдено, то дописываем строки из таблицы соответствий в "Эталон"
                sheet2.Cells(j, 11).Value = sheet6.Cells(n, 2).Value
                ' прекращаем внутренний цикл, переходим к следующей итерации внешнего цикла
            Exit For
        End If
    Next n
Next j

' пробегаем по строкам второй таблицы "Эталон" для внесения унифицированных типов оборудования (внешний цикл)
For j = 2 To last_j
    ' определяем идентификатор текущей строки в "Эталоне" по типу
    type3 = sheet2.Cells(j, 5).Value
    ' пробегаем по строкам пятой таблицы с оборудованием для поиска соответствий (внутренний цикл)
    For m = 2 To last_m
        ' определяем идентификатор текущей строки в таблице соответствий (лист 5)
        type4 = sheet5.Cells(m, 1).Value
            ' проверяем наличие адреса в ячейке Базы
                    If type3 = "" Then
                Exit For
            End If
        If type4 = type3 Then
                ' если совпадение найдено, то дописываем строки из таблицы соответствий в "Эталон"
                sheet2.Cells(j, 12).Value = sheet5.Cells(m, 2).Value
                ' прекращаем внутренний цикл, переходим к следующей итерации внешнего цикла
            Exit For
        End If
    Next m
Next j
 
End Sub