Как сравнить два файла в excel
Автор Михаил Сергеев задал вопрос в разделе Другие языки и технологии
люди подскажите пожалуйста, как в двух файлах excel найти совпадения????помогите очень нужно!!! и получил лучший ответ
Ответ от Ѓдачник[гуру]
А таблицы одинаковы? То есть, например, названия деталей в столбце А, размер в В, цена в С и т. д. ?
И тоже самое во второй таблице? А можно скопировать таблицу из 2 книги в 1 книгу на 2 лист?
После этого проще всего макрос написать с циклом. Что-то типа такого
i = 1
Do While Worksheets("Лист1").Cells(i, 1) <> ""
If Worksheets("Лист1").Cells(i, 1) = Worksheets("Лист2").Cells(i, 1) Then ' Если названия совпали
Range(Worksheets("Лист1").Cells(i, 1), Worksheets("Лист1").Cells(i, 10)).Select
' здесь 10 - это номер последнего столбца в таблице
With Selection.Interior
.ColorIndex = 4 ' Эта строчка красит всю строку в зеленый цвет
.Pattern = xlSolid
End With
End If
i = i + 1
Loop
Если надо, чтобы совпали не только названия но и, например, размеры, записанные во 2 столбец, тогда
If Worksheets("Лист1").Cells(i, 1) = Worksheets("Лист2").Cells(i, 1) Then ' Если названия совпали
If Worksheets("Лист1").Cells(i, 2) = Worksheets("Лист2").Cells(i, 2) Then ' И размеры тоже совпали
Range(Worksheets("Лист1").Cells(i, 1), Worksheets("Лист1").Cells(i, 10)).Select
' здесь 10 - это номер последнего столбца в таблице
With Selection.Interior
.ColorIndex = 4 ' Эта строчка красит всю строку в зеленый цвет
.Pattern = xlSolid
End With
End If
End If
Примерно так
Да проще можно! Но для удобного сравнения нужно, чтобы структура таблиц была полностью одинакова (это и вам нужно, так как иначе возмножны дубли данных и некорректные результаты) .
1) Копируете списки в два столбца рядом на один лист.
2) В третьем столбце пишете простейшую формулу, которая сравнивает соответствующие ячейки и показывает, одинаково у них содержимое, или нет:
=IF(A3=B3;"Одинаковое";"Разное"),
где А3 и В3 - это ячейки с одинаковыми данными из разных списков.
выдели.... и ...подготовить... свойства....