Всем привет! Подскажите, пожалуйста, решение следующей задачи: Имеется 66 таблиц, в отдельных файлах, с названиями report1, report2, и т.д., одинаковой размерности. В каждой таблице отличаются только столбцы D. Необходимо объединить таблицы в одну. Т.е., в таблицу (файл) report1, добавлять из каждой таблицы последний столбец D. Итоговая таблица должна иметь вид : столбцы - A B C D D(из report2) D(из report3) и т.д....
Всем привет! Подскажите, пожалуйста, решение следующей задачи: Имеется 66 таблиц, в отдельных файлах, с названиями report1, report2, и т.д., одинаковой размерности. В каждой таблице отличаются только столбцы D. Необходимо объединить таблицы в одну. Т.е., в таблицу (файл) report1, добавлять из каждой таблицы последний столбец D. Итоговая таблица должна иметь вид : столбцы - A B C D D(из report2) D(из report3) и т.д....keksss001
Сообщение отредактировал keksss001 - Среда, 14.05.2014, 05:39
Если я правильно понял, эта часть процедуры отвечает за итоговое расположение вставляемых ячеек
Цитата
Select Case iBeginRange.Count Case 1 'собираем данные начиная с указанной ячейки и до конца данных lLastrow = .Cells(1, 1).SpecialCells(xlLastCell).Row iLastColumn = .Cells.SpecialCells(xlLastCell).Column sCopyAddress = .Range(.Cells(iBeginRange.Row, iBeginRange.Column), .Cells(lLastrow, iLastColumn)).Address Case Else 'собираем данные с фиксированного диапазона sCopyAddress = iBeginRange.Address End With
Подскажите, пожалуйста, как получить желаемое расположение ячеек?
Спасибо за ссылку! Все перенеслось без проблем, но в итоговую таблицу данные скопированы так:
Цитата
++++++++ +ABCD.+ +D.......+ +D.......+ +++++++
а хотелось бы так: столбцы - A B C D D(из report2) D(из report3) и т.д....
Если я правильно понял, эта часть процедуры отвечает за итоговое расположение вставляемых ячеек
Цитата
Select Case iBeginRange.Count Case 1 'собираем данные начиная с указанной ячейки и до конца данных lLastrow = .Cells(1, 1).SpecialCells(xlLastCell).Row iLastColumn = .Cells.SpecialCells(xlLastCell).Column sCopyAddress = .Range(.Cells(iBeginRange.Row, iBeginRange.Column), .Cells(lLastrow, iLastColumn)).Address Case Else 'собираем данные с фиксированного диапазона sCopyAddress = iBeginRange.Address End With
Подскажите, пожалуйста, как получить желаемое расположение ячеек?keksss001
Сообщение отредактировал keksss001 - Четверг, 15.05.2014, 05:38
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
