Другие языки программирования и технологии
люди подскажите пожалуйста, как в двух файлах excel найти совпадения????помогите очень нужно!!!
есть 2 файла 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
Примерно так
И тоже самое во второй таблице? А можно скопировать таблицу из 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 - это ячейки с одинаковыми данными из разных списков.
1) Копируете списки в два столбца рядом на один лист.
2) В третьем столбце пишете простейшую формулу, которая сравнивает соответствующие ячейки и показывает, одинаково у них содержимое, или нет:
=IF(A3=B3;"Одинаковое";"Разное"),
где А3 и В3 - это ячейки с одинаковыми данными из разных списков.
выдели.... и ...подготовить... свойства....
Похожие вопросы
- Подскажите пожалуйста,как сделать автозаполнение в Excel ?
- как создать сайт???что для этого нужно??? я вообще ничего не знаю по поводу создания сайтов!помогите очень нужно!
- ребят, как создать веб-сайт?? ? помогите, очень нужно!
- Где скачать фотошоп на русском языке? Помогите! Очень нужно
- зачем нужны программисты помогите очень нужно
- Помогите пожалуйста вирус сожрал установочный файл.
- подскажите, как прописать формулу в MO Excel
- Помогите с файлами в с++ Подскажите пожалуйста как просто прочитать информацию с файла, и в дальнейшем работать с ней.
- Помогите пожалуйста найти ошибку в решении задачи по информатике(паскаль) !!!Прошу очень нужно!!!задача простая!!!
- Прилипла реклама на сайт. Как её найти и удалить. В какой файл её могли воткнуть? Подскажите пожалуйста.