Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Посчитать и просумировать все пары чисел, согласно данных другого листа
 
Здравствуйте!
Использовал готовый макрос для рассчёта пар чисел как в примере лист "pary", но он работает неправильно, а должен посчитать и просумировать все пары чисел, согласно данных листа "karta". В ячейку А1 листа "pary" вставляю  =МАКС(B1:СС1), а в ней после запуска макроса считает циклы, в диагонали В2-СС81  таблицы листа "pary" должны быть нули. Самому подправить не получается.
 
>>> для расчёта пар чисел
что является "парой чисел" на листе "karta"?
Конь, просто конь.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
К примеру число 1 в "karta"  массив (В2:U53), (массив будет увеличивается до 5100 строк), присутствует 13 раз ,что вижу из таблицы (AQ1:R53), с числом 2 составляет пару 3 раза в этих 13 строках его присутствия, с числом 3-4 раза... и т.д. поочерёдно до значения числа 80, дальше число 2 присутствует 10 раз, с числом 1 - 3 пары, с числом 3- 2 пары... и т.д.
Изменено: dalton - 7 Апр 2015 13:38:42
 
dalton, цитируйте при необходимости
 
Как вариант с кучей допстолбцов вида: =A1 & " и " & B1 и т.д. с последующим подсчетом количества разных строк (например сводной таблицей)
P.S. вот допстолбцы можно и макросом формировать во вложенных циклах
Изменено: МВТ - 7 Апр 2015 14:01:23
 
Но есть макрос, он рабочий, только подправить бы.
 
>>> Но есть макрос, он рабочий...
Ничего не понял в этом макросе с офсетами и циклами до числа 6, включая название файла "РАГУ" ):
Оттого свой макрос накидал, тоже цикл в цикле цикла... На 5000 строках во время расчёта можно будет чай-кофе успеть выпить. И это несомненный плюс макроса с циклами (8
пс Может кто из коллег покажет решение с массивами/библиотеками/или_ещё_с_чем-нибудь - надо когда-то уже Ёк-Мок'у и это осваивать.
Изменено: Ёк-Мок - 7 Апр 2015 16:08:47
Конь, просто конь.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
Спасибо Ёк-Мок!
Думаю Ёк-Мок освоит всё что пожелает.
Страницы: 1
Читают тему (гостей: 1)