Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2017, 14:56   #1
FoxRiver
Пользователь
 
Регистрация: 28.07.2008
Сообщений: 35
По умолчанию Поиск не совпадений срок

Добрый день уважаемые форумчане. Пожалуйста помогите решить макросом следующую задачку (поиском искал и пробовал сам, но не очень хорошо знаю макросы).

Есть файл с двумя листами: Из проги1 и Из проги2
В каждом листе два столбца. В первом столбце уникальный номер клиента который всегда начинается на 117. Во втором столбце остаток суммы. В листе Из проги1 нет пустых строк. В листе Из проги2 есть и пустые строки и текст.

Нужно сравнить два этих листа следующим образом и выявить расхождение:

1) Берём первый номер из столбца А на листе Из проги1 и ищем такой же номер на листе Из проги2 (при этом игнорируя пустые строки и текст, т.е. даже если есть пустые строки и текст, их мы пропускаем и ищем дальше, номера которые начинаются на 117 в этом столбце А, с ограничением количества строк до 60 000).

2) Если нашли совпадение, то сравниваем сумму из столбца B на первом листе и на втором листе в соответсвующих строках. Если суммы не совпадают, то открываем третий лист книги с названием Расхождение, сохраняем номер клиента и сумму из первого листа и из второго листа в одну строку в три столбца (Столбцы А, B, С к примеру)

3) Повторяем цикл с пункта 1 пока не достигнем конца списка из столбца А книги Из проги1.

Во вложении файл пример.

Там на листе Из проги1 номер клиента в ячейке А5 1170112000001461 совпадает с номером клиента на листе Из проги2 в ячейке А56. Но суммы остатков этого клиента не совпадают друг с другом (в ячейке B5 листа Из проги1 стоит сумма 1820,47 а в ячейке B56 листа Из проги2 стоит сумма 56,98

Эти значения поэтому скопированы на лист Расхождения


Помогите пожалуйста.
Вложения
Тип файла: rar пример.rar (92.3 Кб, 15 просмотров)
FoxRiver вне форума Ответить с цитированием
Старый 26.12.2017, 15:26   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Архив битый. Не?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.12.2017, 15:48   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Архив битый. Не?
нет. видимо у Вас WinRar устаревший.
перепаковать в другой формат?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.12.2017, 16:05   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Вас?
Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
перепаковать в другой формат?
Не утруждайтесь ;-)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.12.2017, 16:12   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Вас?
сорри. у тебя
я просто тут ко всем на "Вы"
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.12.2017, 17:31   #6
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Распаковал.
Но прямо вот кликом по архиву не взялось, распаковал в Тотале.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 26.12.2017, 17:49   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

просто кликом. без всяких проблем.
wrar.jpg
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.12.2017, 19:14   #8
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

WinRAR 3.8 - говорит битый.
7Zip 16.04 - открыл.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 26.12.2017, 19:20   #9
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от FoxRiver Посмотреть сообщение
Есть файл с двумя листами: Из проги1 и Из проги2
...
Если суммы не совпадают, то открываем третий лист книги с названием Расхождение
Так лист Расхождение есть или его надо создать, если найдены несовпадающие суммы?
Если лист уже есть - стереть имеющуюся информацию или дописать в конец?
Вообще, задача решается с помощью ВПР и автофильтра (или расширенного фильтра).
Вложения
Тип файла: zip пример.zip (89.0 Кб, 10 просмотров)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Последний раз редактировалось Казанский; 26.12.2017 в 21:01. Причина: добавил файл
Казанский вне форума Ответить с цитированием
Старый 26.12.2017, 19:22   #10
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

У меня в Тотале Rar 3.93.0.0 отработал.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск совпадений artem19051993 Microsoft Office Excel 18 11.12.2015 16:14
Поиск совпадений в диапазоне и поставление значения соседней от совпавшей ячейки, Поиск совпадений в диапазоне ANshag Microsoft Office Excel 3 08.09.2015 16:35
Поиск совпадений Серёга0629 Microsoft Office Excel 9 29.08.2011 09:22
Поиск совпадений Claster Общие вопросы Delphi 4 22.06.2011 17:34
Поиск совпадений в БД _PROGRAMM_ PHP 6 21.05.2010 13:53