VBA - Сцепить таблицу, подкорректировать макрос

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBA - Сцепить таблицу, подкорректировать макрос

Alexander_88

Ветеран

Сообщения: 558
Благодарности: 5

Профиль | Отправить PM | Цитировать

Изменения

Автор: Alexander_88
Дата: 26-10-2015

Вложения


	Черемухово — копия.rar
(208.3 Kb, 22 просмотров)

Здравствуйте, подскажите пожалуйста, что нужно подправить в коде....

Макрос "СцепитьТаблицу"

Данный макрос сцепляет таблицу "Table1" (левую) на листе "Отчет". Если находятся позиции с одинаковыми столбцами A и B (цена и наименование), то значения из столбца C и D данных позиций сцепляются через знак +

т.е. к примеру было в таблице "Table1":

Код:

     A      B         C       D
1   90   Яблоки     3,5+1    1+6
2   150   Груши     5,45+6   1+4,5
3   90   Яблоки     4,56+3   6
4   30   Картофель   40      6+40,5

После применения макроса стало:

Код:

     A         B          C             D
1   90      Яблоки   3,5+1+4,56+3     1+6+6
2   150      Груши     5,45+6         1+4,5
3   30     Картофель     40           6+40,5
4

Необходимо, чтобы макрос сцеплял не левую, а правую таблицу на листе "Отчет" ("Table2"). Притом таблица опустилась на 4 строки вниз, т.е. необходимо в коде заменить номер строки с которой начинается таблица, а также хотелось бы удалить пустые строки, которые остаются в конце таблицы после выполнения макроса.

Файл Пример222 - там где сейчас работает. (сцепляет левую таблицу "Table1" на листе "Отчет)
Файл Черемухово-копия - там где нужно чтобы работал (сцеплял не левую правую таблицу "Table2" на листе "Отчет", там же таблица сместилась на 4 строки вниз, т.е. нужно где - то заменить номер строки с которой начинается таблица), и было бы хорошо, если есть возможность удалить пустые строки в конце таблицы после выполнения макроса