Закрыть ... [X]

Сравнить две

_ '  Worksheets Лист2.Range B1:B11 ' ' Сравнение каждого элемента в выделенном диапазоне с каждым элементом ' переменной CompareRange For Each x In Selection. For Each y In CompareRange If x y Then x.Offset(0, 2) x Next y. Next x End Sub В данном коде переменной CompareRange присваивается диапазон со сравниваемым массивом. Затем запускается цикл, который просматривает каждый элемент в выделенном диапазоне и сравнивает его с каждым элементом сравниваемого диапазона. Если были найдены элементы с одинаковыми значениями, макрос заносит значение.


Поделись с друзьями



Рекомендуем посмотреть ещё:



3D - панорамные виды гостиницы Космос г. Москва - Коллажи из семейных фото



Сравнить две Сравнить две Сравнить две Сравнить две Сравнить две Сравнить две Сравнить две Сравнить две

ШОКИРУЮЩИЕ НОВОСТИ