Данные из другой открытой книги

@Doctor_Donna · Регистрация: 25.11.2013

Author24 — интернет-сервис помощи студентам

Есть Книга1 (поля "наименование" и "цена") и Книга2, с идентичными полями. Необходимо в Книге2 сравнить сначала наименования с теми, что хранятся в Книге1, и там, где они совпали, сравнить цену. В Книге2 рядом с неправильной ценой написать "Неверно"
Например:
Книга1:
Хлеб 30
Молоко 20
Огурцы 15
Лук 25

Книга2:
Хлеб 35 Неверно
Лук 25

Мой код:

Visual Basic

Dim I, J As Integer
    For I = 2 To 8
    For J = 2 To 11
        If Workbooks("Книга1.xlsx").Sheets("Лист1").Range("B" & J).Value = Sheets("Лист1").Range("A" & I).Value Then
            If Workbooks("Книга1.xlsx").Sheets("Лист1").Range("E" & J).Value = Sheets("Лист1").Range("D" & I).Value Then
            Sheets("Лист1").Cells(E, I).Value = "Верно"
            Else
           Sheets("Лист1").Cells(E, I).Value = "Неверно"
       End If
        End If
        Next J
   Next I

@Alex77755 · 21.04.2015, 16:34

Данные второй книги закинуть в словарь.
Данные первой проверить по словарю
Несколько раз на форуме были подобные примеры
Хотя при таких размерах можно даже в массивы не загонять

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	21.04.2015, 16:34	2
	Данные второй книги закинуть в словарь. Данные первой проверить по словарю Несколько раз на форуме были подобные примеры Хотя при таких размерах можно даже в массивы не загонять 0