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

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

Alexander_88

Ветеран

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

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

Изменения

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

Вложения


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

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

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

Данный макрос сцепляет таблицу "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 строки вниз, т.е. нужно где - то заменить номер строки с которой начинается таблица), и было бы хорошо, если есть возможность удалить пустые строки в конце таблицы после выполнения макроса